O TK-LEMBRANDO contém 33 programas, 
amplamente comentados e que lhe trarão horas de 
entretenimento. 


São programas que permitem que você, no seu 
TK-85, teste a sua memória, o seu senso 
perceptivo, a sua destreza, a sua sorte e até lhe é 
indicado uma dieta adequada. 


Ao adquirir esse livro você terá oportunidade de 
melhorar sua capacidade de programação na 
medida que os programas, com suas devidas 
instruções, forem entrando no TK-85. 


Em muitos casos pede-se que você incremente os 
programas e, então, surge a oportunidade para 
exibir a sua criatividade... 
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APRESENTAÇÃO 


Quando a primeira máquina Sinclair foi lan 
çada na metade de 1982, uma barreira foi quebrada 
na ârea da Informatica. Pela primeira vez um com- 
putador “moderadamente” poderoso era vendido na In- 
glaterra e nos Estados Unidos por menos de 100 dôla 
res, 

Devido a esta condição básica — equipamen- 
to extremamente barato — os computadores atingiram 
a maioria da população, incluindo muitos estudantes. 

Sô nos Estados Unidos jã foram comerciali- 
zadas mais de 1 milhão dessas máquinas e um número 
aproximadamente igual jã foi vendido na Europa, 

No Brasil nao temos dados precisos sobre 
a produção, porêm sabemos que a Microdigital traba- 
lha a pleno vapor sem ser atingida pela crise, de- 
senvolvendo, entre outros, os parentes bem próximos 
da linha Sinclair, ou seja, os micros TK-82,83,85) 

Nesta pequena coleção de programas a refe- 
rência básica serã ao TK-85. 

A tecnologia original foi desenvolvida na 
Inglaterra pelo extraordinário Clive Sinclair, que 
em empreendimentos anteriores foi a bancarrota, mas 
no projeto do micro obteve um sucesso extraordina- 


rico. 


Como consequência do sucesso de vendas no 
Brasil do TK-85, apesar de algumas de suas limita- 
ções, como por exemplo a falta de uma impressora e 
de alguns comandos do BASIC como READ, DATA,RESTORE 
etc., surgiu um grande número de usuários. 

E entretanto um grave erro, como diz Char 
les Ryan no seu artigo "OQ Volkswagen dos pequenos 
sistemas", que saiu no primeiro número da revista 
Bits (outubro de 1983), atribuir o sucesso do TK-85 
e similares apenas ao preço conveniente do produto. 

Um fator importante que deve ser pesado no 
fenômeno Sinclair é que ele foi o primeiro micro na 
sua faixa de preço que estava dirigido diretamente 
ao usuário não especializado, o qual poderia ter a 
máquina no seu lar acoplada a um aparelho de TV co- 
mum e tendo condiçoes de opera-la a qualquer ins- 
tante. 

A seguir surgiu a possibilidade da expan- 
são da memória RAM, a factibilidade de criar e gra- 
var em fita arquivos de dados separadamente do pro- 
grama e esperamos a partir de 1984 a possibilidade 
de conectar uma impressora barata ao TK-B5. 

O TK-85 tem uma grande utilidade no lazer, 
aceitando programas com jogos de emoção que exigem 
reflexos rápidos, habilidade manual e obviamente 
raciocínio. Esta êa função do livro Tk-Divertindo. 

No TK-85 tambêm podemos desenvolver progra 


mas didáticos que servem inclusive de auto-instru= 


ção. Aliãs, esta & a finalidade básica do  TK-Lem- 
brando. 


O TK-85 não deixa entretanto de ser util 
no dia-a-dia dos câlculos caseiros, de escritório 
ou da escola. Foi com essa intenção que escrevemos 


o TK-Calculando. 


Nesta coleção de programas a preocupação 
foi realmente não termos muitas instruções em cada 
programa, economizando dessa forma memória e tempo 
de digitação. 

Não achamos tambêm que & uma simples cole- 
tânea de "joguinhos" ou de aplicações um pouco mais 
sêrias, visto que em quase todos os programas demos 
indicações de eventuais é úteis alterações e em al- 
guns casos fazemos comentários atê exaustivos,porêm 
em todos indicamos a finalidade do programa e suge- 


rimos ate uma aplicação numérica onde ela convier. 


Acreditamos que a coleção destes três li- 
vros representa uma forma bem barata de adquirir 
software, embora nao seja esta a utilidade mais im- 
portante. 

Pode ter certeza o(a) caro(la) leitor(a)jque 
a digitação etapa por etapa, isto E,linha por linha 
de um programa, acaba mostrando a você fundamentais 
truques de programação, e existe uma absorção de co 
nhecimento que se nao é por osmose pode ser por nçã 
diose”". . 

Alias,ninguêm consegue ser um grande joga- 
dor se nao treinar muito e copiar um pouco o estilo 
daqueles que jã jogam bem. ne 

É muito dificil ser um grande escritor sem 
ter sido um paciente leitor de muitos livros. 

Não dã portanto para ser um bom programa- 
dor sem antes ter visto muitos programas funciona- 
rem e bem. 

A coleção completa tem 100 programas e por 
tanto o material & bastante farto e divoroitisados 

Claro que o passo seguinte seria ler um li 


vro do tipo Linguagem BASIC ou BASIC Sem Segredos, 


editados também pela Livraria Nobel, para comple- 
mentação ou eliminação de qualquer dúvida sobre os 
diversos comandos do BASIC. 

De uma coisa todos nos da família Mirshawka 
estamos convictos: os micros da Microdigital da sê- 
rie TK e tecnologia Nacional são equipamentos sê- 
rios e não brinquedos como pretendem inculcar al- 
guns menos informados na cabeça dos “computamania- 
cos". 

Todos muitos em breve serão "computamania- 
cos" e o TK-85 pode ser definido como o “volkscom- 
puter", ou seja, o micro do povo, assim como o Volks 
wagen ou talvez o Fiat, aqui no Brasil, sejam os au 
tomóôveis do povo. 

A tarefa de escrever programas para um mi- 
cro não É muito difícil. Preste portanto muita aten 
ção nas sugestões, nas modificações e nos diversos 
truques indicados nos 100 programas e em breve você 
estarã tambêm programando os seus jogos ou entao 
resolvendo os seus problemas de Matemática, Física, 
Quimica e quem sabe atê de Finanças e de Engenha- 
ria. 

Seja bem-vindo ao mundo do TK-85 e muitas 


felicidades. 


Os autores, ou seja, 
a família Mirshawka, 
unida entre outras 
coisas pelo TK. 





(1) TK-B2, TK-83 e TK-85 são marcas registradas da Micrndigital Eletrô- 
nica Ltda. 
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1. INTRODUÇÃO 


1 - O TECLADO DO SEU TK-85 
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À primeira vista o teclado do TK-85 pode 
atê parecer complicado. 

É nosso mister fazer com que você se trans 
forme inicialmente em um exímio “pianista” neste te 
clado conhecendo "as regras",as suas teclas e o que 
& fundamental,a função de cada uma. 

Olhe bem para as teclas. 

Olhou? 

Bem, verificou que temos quatro linhas de 
teclas, 

Na linha de topo estão os números e nas te 
clas restantes estão as letras do alfabeto parecen- 
do muito com o que ocorre em uma máquina de escre- 


ver comum, 


Entretanto algumas das teclas podem tera 


sua funçao tomada erradamente ou seja podem ser tro 


cadas. 
Seja portanto cuidadoso. 
A-letra "0" e o numero zero "6" nao devem 


ser confundidos. 


É esta a razao pela qual o seu zero apare- 
cera cortado "gp". 


Da mesma forma & terrível a confusao entre 


a letra "IL" e o numero 1, 


Isto trarã problemas e confusões aparente- 


mente não identificaveis nos seus programas 


Boa parte do tempo as palavras que você irã 
precisar serao obtidas num sensacional "zas-trãs" 
pressionando-se apenas uma tecla. 

Isto farã com que você economize muito tem 
po de digitação, porêm pode causar problemas tam” 
bêm... 

Caso você esqueça isto e bata letra por le 
tra as palavras que aparecem nas teclas, palavras 
estas que correspondem à comandos,o seu TK-85, pode 
rã e ficarã confuso a tal ponto que se negarã a a- 
ceitar a linha de instrução assim teclada. 

Em alguns programas que aparecem no TK-Di- 
vertindo colocamos todas as palavras chave que se 
obtêm pressionando apenas uma tecla dentro de um re 
tângulo para que você esclarecido(a) leitor(a) não 
esqueça disto. 

Um exemplo & o comando : 

É muito facil cometer erros. 

Quem não os comete... 

Bem os erros aqui são de digitação e é re- 
lativamente facil apagá-los ou seja "borracha-los" 
usando duas teclas, 

A 12 tecla & e ela serã util em 
muitas coisas. 

Ela estã no canto da esquerda da última li 
nha. 

Esta tecla serã muito usada e você deve 


pressioná-la com os dedos da mão esquerda. 


Pressione (SHIFT) e mantenha-a assim abai- 
xada enquanto você aciona [ RUBOUT]Ja qual estã na te 


cla que contêm o É (zero). 


Com esta operação você conseguira limpar 
ou Seja apagar as letras ou palavras que estão an- 


tes do cursor. 
O CURSOR 


O cursor & muito importante porque ele nos 
informa em que posição da tela nos encontramos no 
momento e o que o micro irã imprimir quando você 
pressionar uma tecla. 

Existem quatro letras diferentes que podem 
aparecer dentro de uma casela ou quadradinho preto. 


Dessa forma teremos: 


O - Para números de linha e palavras chave que aparecem 
acima da tecla 


(B . para ietras e números 
(OB + Para funções (palavras chave que aparecem abaixo da 
tecla) 


a - Para graficos (letras brancas sobre fundo preto e 
alguns caracteres graficos especiais que aparecem 
coloridos com azul). 


NEWLINE Sabemos que NEWLINE quer dizer linha no 


va porêm vamos escrever tudo junto para 
dar ênfase que é uma tecla unica para 
entrar com uma instrução. 


Esta é uma tecla muito importante, 

Quando você pressiona esta tecla é mais ou 
menos a mesma coisa que dizer-lhe "faça aquilo que 
lhe mandei" 

Aqui vale o que jã disse hã muito tempo a 
Lady Lovelace que pode ser rotulada como a primeira 
programadora (Charles Babbage que o diga...):"o com 
putador pode fazer qualquer coisa que saibamos ex- 


plicar-lhe como fazer" 


Note bem, atê apertar a tecla NEWLINE você 
pode ser volúvel e mudar de idéia que o seu TK-85 
não irã se importar com o que você estã lhe pergun 


tando. 
Depois que você apertou o NEWLINE bau,bau, 


bau, Zezefredo ou então adeus Ronilda... 


RUN 


Quando você jã embutiu todo o seu programa 
dentro do TK-85 você deve informar-lhe para que exe 


cute o mesmo. 


Para fazer isto acione a tecla [RUN] e en- 


tão aperte a tecla [ NEWNLINE jpara confirmar. 


Esta tecla é muito util quando queremos pa 


“ y 
rar o programa meio na "força bruta . 


BREAK 
SPACEÉ 


NEW 


Você encontra esta palavra-chave acima da 


letra â. 


(NEW) é usada para limpar ou seja apagar 
qualquer programa remanescente e estar apto para um 


novo programa. 
Se você apertar entao | NEWLINE os 


seus programas anteriores irao para o espaço sem es 


tarem em orbita ou seja jamais voltarão... 


O comando esta na tecla [x ). 
ese NERO Saio se iu 


TK-85 imprimirã o seu programa na tela começando na 
12 linha. 

É frequente, não ser suficiente o espaço 
todo de uma tela para que contenha um programa com- 
pleto. 

Para ver a parte do programa que lhe inte- 
ressar,pressione e então tecle o numero da 


linha,no qual esta interessado antes de apertar o 


NEWLINE 


O seu TK-85 imprimirã o programa começando 
na linha cujo numero foi indicado no (LIST). 


EDIT 
O comando [ EDIT) (de edição) estã na tecla 


e caso você queira editar uma linha,por exemplo 


a linha 5Ó,deve proceder da seguinte forma: acionar 
LIST] 56 e só ai pressionar o NEWLINE 


Depois destas ações pressione 


SHIFT)|[ EDIT) e uma copia da linha 5$ aparecerá 


na parte de baixo. 


Você pode agora usar |SHIFT; e as teclas(5] 


e [8] para deslocar o cursor ao longo da linha. 
Você estimado(a) leitor(a) pode acrescen- 
tar novos caracteres ou apagar aqueles que são in- 


desejáveis. 


Você pode inclusive mudar o número da sua 
linha. 
Quando a linha estiver correta aperte 


NEWLINE | e então a nova versao da linha serã colo- 


cada no programa -no lugar da velha, 
O SISTEMA "COLORIDO" DO SEU TK-85 


No teclado do seu TK-85 você vera quatro 
cores: preta, brancã, amarela e a azul. 

É bom se acostumar a estas cores para es- 
crever os programas e para que seja mais facil en- 


tendê-los (as vezes). 


(PLOT]— Estã escrito em branco e aparece em cima 
da letra (0). 


Basta apertar esta tecla no modo K e vo- 
ce tera o PLOT. 


[v]— À letra "Vv” aparece em branco. 
Basta apertar esta tecla e você tera V 
desde que você esteja no modo L. 


STOP |—» Como se ve o STOP esta escrito na cor 
amarela no seu TK-85. 


Tudo que estiver na cor amarela para po- 
der entrar dentro do TK-85 precisa antes 


ter apertada a tecla SHIFT (amarela 


por sinal!!! 


[SIN |—» A função seno estã escrita em branco e 
aparece na parte de baixo da tecla (0). 
Para entrar com a mesma você deve apertar 


a tecla (SHIFT) e mante-la abaixada ate apertar a 


tecla | NEWLINE | que acima de sã tem escrito em bran 
co | FUNCTION |). 


Tire o seu "lindo dedinho" da tecla [SHIFT 


e eis que surge a letra (F) dentro do cursor (d. 


Aperte agora a tecla [0) 
Great surpriseli: 


Aparecera na tela | SIN 


Esta portanto & a forma de entrar com to- 
das as funções que estao escritas em branco na par- 
te de baixo das teclas e exigem que o cursor esteja 
no modo FUNCTION (D. 

Podemos escrever em branco dentro de qua- 
drados negrose para tanto precisamos entrar no modo 
grafico. 

Para isto & necessário apertar a tecla 
e mantê-la abaixada. 

Ache agora a tecla (9) e aperte a mesma 
(aperte mesmo e não pense que o seu micro pode em 
algum momento ter cocegas...) 

O cursor mudará agora para a forma é 

Você tem agora uma escolha. 

Pode por exemplo manter pressionada a te- 
cla enquanto você aperta a tecla(B) e terã 
como resultado a saída de] . 

Esta impressão vai ser muito útil princi- 
palmente no volume I desta serie ou seja no TK-Di- 
vertindo. 

Você tem uma outra possibilidade ou seja 
tirar o seu dedo da tecla antes de apertar 
a tecla e então com essa sequência de "acionamen 
tos” obter-se-à um B "branco" em um fundo preto ou 


seja o B no modo graficof] . 


Se você mantiver pressionada a tecla [SHIFT 


enquanto estiver em modo grafico, com algumas te- 
clas como (1), (2), Getc.... (Fr). (6), (Bete. obterã pe- 
quenos símbolos graficos mostrados no canto infe- 


rior da direita e que estao representados em azut. 


Alias não deixe de notar que o GRAPHICS tam 
bêm esta escrito em azul. 
Abaixo vao detalhados todos os simbolos 


gráficos disponíveis no seu TK-85., 


Simbolo Modo Teclas Simbolo Modo Teclas 
[| or SPACE o SPACE 
E] sur SHIFT-Q 
E SHIFT-2 E SHIFT-W 
pa SHIFT-7 Em SHIFT-6 
"E SHIFT-4 no SHIFT-R 
E) SHIFT-5 [E SHIFT-8 
nr SHIFT-T E SHIFT-Y 
E SHIFT-E [mn SHIFT-3 
Es SHIFT-A SE SHLFT-H 
E SHIFT-D m SHIFT-G 
BS SHIFT-S Hi SHIFT-F 


Por favor observe que nesta lista cada sim 
bolo estã "emoldurado", dentro de um quadrado tendo 
os seus quatro cantos evidentemente destacados oque 
as vezes não & muito claro na tela. 

Assim por exemplo quando você teclar o pri 
meiro simbolo, evidentemente não tera um quadrado 
"branco" ou ainda uma caixa vazia mas sim um espaço 


em branco. 


10 


11 
Bem, com a digitação dos programas você en 
tenderaã isto melhor!!! 
Insistindo mais uma vez, não esqueça que 
você obtêm letras e numeros em vídeo inverso atra- 2 — INDICAÇÃO RESUMIDA DAS PALAVRAS-CHAVE EM 
E ORDEM ALFABÉTICA QUE PODEM SER ACESSADAS 
ves do modo g . NO TK-85 COM UMA ÚNICA "TECLADA" DESDE 
Todos os símbolos matemáticos são também QUE JÃ SE ESTEJA NO MODO CORRETO 
acessados de uma forma bem simples porém eles es- 
tão em amarelo que aliãs é também a cor da tecla 
SHIFT). 
Portanto aperte [SHIFT) e depois (te Enredo Modo Tecla Significado 
cla T) que significa "não igual a" ou "diferente de” 
a ABS G valor absoluto 
>= (tecla Y) que significa "maior ou igual a”, ACS G S arco cosseno 
(tecla H) que significa “elevado a" AND ou] SHIFT-2 juntando condições 
[E) (tecla L) que significa "atribua a variã- ASN A arco seno 
vel que estã à esquerda o valor que estã a 
E a AT c específica a posição de impres- 
a direita" são 
(tecla N) que significa "menor que" etc. ATN D arco tangente 
CHR$ U numero para caractere 
OBSERVAÇÃO IMPORTANTE - O.I. ( : dr 
rd e ao CLEAR X limpa variaveis e tela 
Neste livro a unica forma de representar 
- + K 1 
aspas estã localizada na tecla P. CLS É Me limpa tela 
Em nenhum dos nossos programas usaremos as CODE T de caractere para numero 
aspas que estão localizadas na tecla Q. . E 
j É CONT C continua a execuçao 
Comentaremos isto com mais detalhes no pro 
grama 9 - "ENTRANDO EM FRIA". COPY Z copia a tela para a impressora 
cos W cosseno 
DIM D dimensões de conjuntos numêri- 
cos e alfabeticos 
EXP x exponencial 
FAST ou SHIFT-F modo rápido 
FOR F ajusta para um laço 
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Palavra 
chave 


GOSUB 
GOTO 
IP 
INKEY$ 
INPUT 
INT 


LEN 


LET 
LIST 
LLIST 
LN 
LOAD 
LPRINT 
NEW 
NEXT 
NOT 
OR 
PAUSE 


PEEK 


PI 
PLOT 


PORE 


PRINT 


BRR RRBE 


v as 


Bm E 


ES 


sao ER AGR 
Pu 
o 


ou(s 


ouB 


Tecla 


L 


K 


SHILFT-G 


Z 


J 


SHIFT-S 


A 


N 


N 


SHIFT-W 


M 


0 


Significado 

desvia para subrotina 
desvio incondicional 

testa condição 

Lê o teclado 

aceita dados 

volta apenas a parte inteira 


comprimento da variável alfanu 
merica (STRING) 


atribuindo valores 
lista o programa 

lista na impressora 
logaritmo natural 
carrega o programa do cassete 
imprime via impressora 
limpa a memoria 

indica fim do laço 
negação 

duas ou mais condições 
da uma pausa no TK-85 


mostra a memória em um ponto 
específico 


valor de T 
coloca um pixel na tela 


coloca dados em uma posição es 
ms os — 
pecifica da memoria 


imprime algo 


Palavra 
chave 


RAND 
REM 


RETURN 


RND 
RUN 
SAVE 
SCROLL 
SGN 
SIN 
SLOW 
SQR 
STEP 
STOP 


STR$ 


TAB 
TAN 


THEN 


TO 
UNPLOT 


USR 


VAL 


Modo 


amb aR 


BB ua m 


& 


DEBE O 


| 


“OL 


«Ml 
eu ig 


ou E 


ou IB 


Tecla 


Q 
SHIFT-D 
H 
SHIFT-E 
SHIFT-A 


Y 


P 
E 


SHIFT-3 


SHIFT-4 
W 


L 
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Significado 
indica a posiçao inicial do RND 
observações ou comentários 


volta logo apos a chamada do 
GOSUB 


função aleatória 

executa um programa 

guarda o programa em fita 
gira uma linha para cima 
sinal de um número 

seno - 

modo lento 

raiz quadrada 

incremento do Dai FOR/NEXT 
para a execução 


valores numéricos para alfanu- 
mericos (STRINGs) 


tabulação 
tangente 


resultante de uma condição ver 
dadeira 


especifica o limite 
apaga um pixel 
código de maquina dentro do 


BASIC 


converte caracteres numéricos 
para os seus valores numéricos 
atuais 
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Você necessita entrar 
do modo grafico? 


3 - PRIMEIROS SOCORROS — 
Você nao pode editar 
(EDIT) uma linha? 


Você tem mais algum 
problema? 















va a pagina(l7 ) se 
você ja esta tentan 
do executar ( RUN ) 
um programa 







Entrando com 
programa (Si 
ga a flecha) 








Pressione a tecla | NEWLINE 


Veja se você não encontra o seu cursor com o 






O seu TK-85 não aceita 
-a sua linha de progra- 
ma? 

GOTO isto & VA PARA 


aspecto E) !!!7? Caso isto aconteça E o seu TK-85 






que esta lhe indicando onde provavelmente estã o 













erro nesta linha. 
Veja se você nao esqueceu um ou C") ou Djete. 


VA AGORA PARA 3 









Você nao consegue lim- 
par uma porção de "ba- 
boseiras"” que estão na 
parte de baixo da tela? 








Tecle o |[SHIFT| e. mantenha abaixada enquan- 


to você aperta e ” 


Se uma linha de programa substituir o "lixo" que 
estava escrito aperte | NEWLINE | para continuar. 





Existe algum erro na 
linha que você esta es 
crevendo? 







Existe algum erro em 
alguma das outras li- 
nhas ou voce quer edi- 






Tecle SHIFT e mantenha abaixada a mesma. 


Utilize as teclas e para mover 


o cursor exatamente a direita do erro. 
Mantenha abaixada a tecla e aperte 
para apagar. Solte o e bata os 
símbolos corretos. Aperte( NEWLINE ). 










O seu programa parece 
ser muito grande e es- 
ta sumindo da tela? 










Você precisa editar (EDIT) a linha. 









Ache o (3 na lista do programa. 


Mova-o atê a linha que deve ser editada man 


tendo pressionada a tecla [SHIFT|] e apertando 


[6] o bt) 


com [saiFT) e 1ÉDIT] você obtêm a cópia da li 
nha na parte de baixo da tela. |VÃ PARA 3 


Não se preocupe com o que estã sumindo da te 
la. Tudo estã indo para a memória do seu TK-85. 
Nenhum dos programas que é dado neste livro é su- 
ficientemente grande para lotar a memória do seu 
TK-85. 


Continue tranquilo, teclando o seu programa, pois 





você nao perdeu nada. 


[6] Tecle |SHIFT) e Gore para fazer o cur 


sor sair do modo letra (] para o modo gráfico 


Você pode precisar que a tecla (SHIFT) fique abai- 
xada para que possa imprimir alguns caracteres in 








dicados em amarelo no seu TkK-85. 


Pare de apertar a tecla [SHIFT| e aperte| NEWLINE 


voltar ao modo tetra [8 , 





para 


CLS 
Aperte e ( NEWLINE ). 


Mantenha a tecla |SHIFT) abaixada enquanto 


aperta 





17 





Tem ou terã muitos a partir de agora. Sô 


mais um pouco de paciencia e você sentira 





programas que realmente funcionam, pois foram 





todos testados. 





Entretanto como sugestao acompanhe com muita 






atençao o que estã escrito a seguir. 


Direção e sentido a seguir caso você 


esteja entrando com um programa 


Você jã leu alguma coisa sobre "isto é o 
que o TK-85 pode ou não fazer" e agora você vai ler 
o que resta para “como fazer para conseguir que o 
TK-85 execute-o”, 

É obvio que estamos nos referindo a um pro 
grama e os resultados podem ser totalmente diversos 
daqueles que se estava esperando. 


Quais podem ser as razões? 
Resposta 


O programa trabalha bem e inesperadamente algo 
ocorre de errado. 


Esse erro, deve ser provavelmente devido a um 


trecho do programa que não & usado todas as ve 


zes. Este pode ser um dos possíveis problemas 
que serão abordados nos itens de I a XIV mais 


especificamente IV, V, VII e VIII. 


O programa & executado,porem os resultados sao 
“levemente” diferentes ou até mesmo errados. 
Isto, provavelmente & devido a um pequeno erro 


comumente cometido ao informar ao TK-B5 onde 
ele deve imprimir alguma coisa na tela. 


Olhe com atenção os “possíveis galhos"III,VI e 
mesmo LI. 





e 


te. 


O programa ou não começa ou não para no mesmo lu- 


gar a cada vez que é executado. 


Aparecem numeros como "2/56" na parte baixa 


tela, 


da 


Tente verificar entre as "possiveis encrenças" os 


casos de I atê XII. JUfa, ufa, que azar... 


A tela esta totalmente branca. 
Aperte (BREAK ] e então verifique atravês 


dessa pagina outra vez se descobre algo. 


Um possivel problema do tipo XIII pode 


ter ocorrido. 


A tela estã branca exceto que aparece o 


cursor. 


Um possivel problema do tipo XIV pode 


ter ocorrido. 


A listagem do programa aparece na tela, 
Isto acontece quando o micro para a exe- 
cução e você não fez caso e aper- 


tou | NEWLINE ). Esteja atento para que 


não tenha ocorrido alguma mudança no pro 


grama. Verifique o programa cuidadosamen 


te. De um de novo. 








Ea 


4 - POSSÍVEIS "MANCADAS SUAS" POIS O TK-85 NÃO 
MANCA, VISTO QUE NÃO TEM PERNAS ... 


Se você seguir as instruções que estão nos 
diversos programas da forma que estão escritos Jja- 
mais tera algum dos problemas que enumeraremos a se 
guir. 

Em tempo, é óbvio que os autores não são 
infalíveis e além do que podem surgir também alguns 
erros na composição. Passamos a culpa para o datilô 
grafo... 

Portanto perdoadas as eventuais mancadas 
dos autores e como todo mundo comete erros de tempo 
em tempo, vejamos o que fazer se os programas não 
apresentarem o que deles se espera. 

n 


od aa . . 
Ai vao algumas receitas ou seja alguns re 


médios" para as suas mancadas caro(a) leitor(a). 


I—» Você pensou que bateu a linha 76, porêm es- 
queceu do & (zero) e bateu a linha 7 por engano. 

O TK-85 lhe dã uma indicação de erro do tipo 
2/7 pois nao lhe foi dito que era para esquecer es 
te dígito e a linha nao estã relacionada com o res=- 
to do programa. 

A cura para este mal & editar (EDIT) a linha 
7 e acrescentar o 6 e entao apertar para 
entrar a linha com numero de linha correto. 


Apague (ou seja dê um "RUBOUT") a linha 7 te 


clando o 7 e entao após isto teclando/ NEWLINE |). 


II—» Você pode ter pulado uma das linhas por enga 
no. 
O TK-85 lhe dã um relatório de erro 2/ "núme 


ro de linha" pois ele estã procurando achar algo que 
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ele precisa da linha omitida. 
nica solução - Bater a linha quê foi omiti 


da. 
[ILI—» Você pode ter teclado uma linha | erradamens 


te porém não o suficientemente errada para que o 


fK-85 impeça a ascensão (lindo não?! !! desta linha 


ao programa). 
Você poderia ter escrito 


109 LET C=13 


no lugar de 
104 LET V=13 


porque as teclas C e v estão bem próximas uma da ou 


tra. 

Possível forma de descobrir o "grilo" - Veri 
ficar linha por linha o programa principal e então 
fazer a mudança. 

Esta é a solução por inspeção para não dizer 
por visão ou seja revisao total. 
1y—» Existe um erro em uma parte do programa que 
não é usado a todo instante. 


Este erro por exemplo pode estar nã linha de 


alguma instrução contadora ou seja aquela na qual 


se acumulam os pontos de um jogo. 
Se a mensagem de erro tem à forma 2/"número 


de linha" então tente os remédios de 1 atê III indi 


cados hã pouco. 


Y—» | O código de erro 3 ou B significa que um nã- 
mero não & suficientemente bom ou melhor, adequado 
para a tarefa que Se estã exigindo. 


Por exemplo 


gl 


200 PRINT AT X,Y 
pode não entrar ou melhor não ser executada caso X 
ou Y sejam negativos ou X seja maior que 21 (s6 te- 
mos 22 linhas na tela) ou Y maior que 31 (sô temos 
32 colunas na tela). 
| Note que as linhas são numeradas 8,1,2,...21 

de cima para baixo e as colunas são numeradas 8,1, 
2,...,431 da esquerda para a direita. 

, O problema pode tambêm surgir em uma instru- 
ção como 

306 PRINT V$(K) se K 
deve ter 25 letras e não existem mais que 18 letras 
em V$. 
; É evidente que o TK-85 não irá ter condi- 
çoes por exemplo de achar a vigesima quinta letra, 
| Tome estimado(a) leitor(a) muito cuidado 

principalmente nos STRINGs (cadeias) que serão usa- 


» 
dos para simular um movimento na tela. 


observação importante - O.I. 


É Não permita que o programa que estã entran 
o no seu TK-85 seja uma casa da bolacha onde nada 
ge acha... 


Ai vai ser 
uma desgraça para passar algum 


programa. 


VI—» u 
I Um número extra pode ter sido acrescido a um 
GOTO ou a um GOSUB ou ainda pode ter sido esquecido 
algum numero. 

Dessa maneira o seu TK-85 fica um tanto quan 
to atordoado pois esta sendo mandado para algum lu- 


ar a À â 
8 que nao pode ir ou estã sendo mandado para o lu 


gar errado. 
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Com os humanos as vezes ocorre um fato dife- 
rente ou seja mandam-se as pessoas para certos luga 
res e elas não vão de forma alguma... 

A solução para achar este tipo de erro ê no- 
vamente a paciente e nipônica verificação linha por 


linha do programa todo. 


VII— Erro 5/"número de linha” significa que à te- 
la estã lotada e você estã tentando imprimir fora 
da janela correspondente a uma tela. 

Caso isto ocorra você deve olhar o seu coman 
do PRINT ou então tentar resolver O problema com o 


comando CONT e depois NEWLINE. 


VIILE—e A mensagem de erro 4/“numero de linha" signi 
fica que você “estourou” a memória RAM do seu TK-85. 

Este fenômeno não É tão raro porém não ocor 
rerã nos programas deste livro a não ser que depois 
de algum tempo o(a) criativo(a) tleitor(a) acrescen- 
te coisas tão originais por conta própria que ocor 
ra o esgotamento da memória do seu TK-85. 

Os remédios podem ser: a) usar um programa 
com uma tela menor fazendo economia nas mensagens 
e principalmente nas observaçõea (REMarks); b) lim 
par a tela com o sempre que for possível; c) 
a solução "melhoral” ou seja expandir a memória 
RAM (bom esta solução é& a mais simples mas tambêm 


pode ser cara!!). 


Ix—e Erro D/"número de linha” significa que você 
apertou a tecla BREAK). 
Remédio - Aperte o e depois o 
NEWLINE 1. 
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K— A mensagem codificada como 9/"numero de li- 
nha" 


STOP. 


significa que o seu TK-85 atingiu um comando 


Isto também pode ocorrer em vista de galhos 
do tipo I. 


xi—» A mensagem codificada 6/ "numero de linha" 
significa que existe um erro na aritmética ou algê- 
brico (notou bicho na aritmética!!!) e o seu TK-85 


não pode fazer aquilo que você estã lhe mandando. 


XII—» A mensagem codificada 7/ “numero de linha” 
significa que você se esqueceu de alguma linha de 
programa com um STOP ou um GOTO e o seu TK-85. esta 


perdido cometendo enganos por você programados em 
alguma subrotina. 


XIII—» O programa pode entrar em um laço sem fim. 
Isto às vezes atê & desejavel. 
A única maneira de sair desta situação & apertando 
a tecla . 
Uma causa provavel pode ser alguma linha per 


dida de GOTO ou ainda numeros errados ou esquecidos 
nos comandos GOTO. 


XIV—» Perdeu-se o programa porque faltou luz devi- 
do a um defeito na rede da Eletropaulo durante 


segundo! !!! 


Outro azar, teclou-se por descuido o(NEW) 


um 


amo MN E e 
Solução: "Sorria meu bem, sorria..." 


Conhece esta musica!!! 


Pois e,você deve entoá-la e começar 


alegremente a teclar o programa todo de novo. 
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Aliãs as vezes pode também ocorrer uma lamen 
tável desconexão de algum fio da tomada ou ainda um 
querido parente chegar com um sorvete para você e 
distraidamente tropeçar num fio desligando o siste 
ma. 

Agradeça pelo sorvete, não fale nada que não 
estã no dicionário e ainda mais se perguntarem al- 
go diga, sou louco pará digitar tudo pela segunda 


vez. 


5 — GUARDANDO O SEU PROGRAMA 


A digitação de um programa longo consome 
muito tempo. 

Além disso, toda vez que se tecla abre-se 
a possibilidade para que surjam novos erros. 

Contudo um programa pode ser armazenado em 
uma fita magnética da mesma forma que você grava 
uma música de sucesso quando essa the interessa, no 
seu gravador. 

Para "salvar" um programa depois que o mes 
mo foi digitado e verificado no seu TK-85 tudo oque 
você deve fazer é teclar a palavra SAVE e decidir 
então sobre o nome para um particular programa. 

Para não encucar a cabecinha do(a) queri- 
do(a) e criativola) teitor(a) jã colocamos nomes 
nos nossos programas. 

Alguns até podem parecer longos mas a nos= 


so ver são sugestivos. 
o 99 programa tem o nome de "ENTRANDO EM 


FRIA”. 
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Caso você deseje gravar esse programa te- 


cle 


SAVE "ENTRANDO EM FRIA" 


Neste ponto você deve colocar o seu gravar 
dor no modo "recorder" ou seja gravação. 

Pressione agora a tecla e o pro- 
grama ou mais precisamente uma cópia do seu progra- 
ma passará para a fita cassete visto que o seu pro- 
grama original ainda reside na memória RAM do seu 
TK-85. 

Você saberã que a gravação estã completa 
quando aparecer o código de têrmino da mesma 0/6 
no canto inferior da esquerda da sua tela. 

Agora você já pode desligar o seu gravar 
dor. 


6  — CARREGANDO UM PROGRAMA 


Com o intuito de carregar um programa de 
uma fita cassete para o seu TK-85 inicialmente te- 


cle(NEW)seguido por uma tecla( NEWLINE ). 


Agora você pode teclar por exemplo 
LOAD "ENTRANDO EM FRIA” 


o qual irã buscar e carregar na memória RAM do seu 
TK-85 o programa chamado "ENTRANDO EM FRIA” 


Tem-se também a alternativa 


LOAD"" 


o qual busca e carrega o primeiro programa completo 
que encontrar na fita. 
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observações importantes - O.I. 


1) 


2) 


Não esqueça de fazer uma anotação precisa do no- 
me do programa que você estã armazenando, incluin 
do quaisquer espaços em branco entre palavras que 
possam existir no nome do mesmo. 

Caso você quarde um programa chamado "ENTRANDO EM 
FRIA” na fita e mais tarde queira carregar um 
programa chamado “ENTRANDOEMFRIA” da mesma fi 
ta o seu TK-85 não serã capaz de encontrar o pro 
grama. 

Que falta irão fazer os dois espaços em branco 


perdidos!!?11? 


Deve-se ter um gravador de “mono” não o estereo 
para carregar ou para guardar programas. 

Caso o seu gravador de fitas seja apenas estereo 
você deve virar o controle do “balance” (gostou 
dessa chapa?) ou todo para a esquerda ou todo pa 
ra a direita. 

Além disso você deverã manter o controle do volu 
me um tanto quanto alto, talvez a 75% do volume 
maximo. 

Finalmente o controle do' tom deve estar na sua 
mais alta posição. 

É, o seu TK-85 se "embobina” um pouco com grava- 
dor sofisticado pois o que ele quer & um grava- 


dor simples... . 


H. PROGRAMAS 


1. ANUNCIANDO 





A maior parte das pessoas ja estã acostu- 
mada a exibição de anúncios e notícias vendo as pa 
lavras se moverem. 

Nesse programa inicial você aprenderá co- 
mo produzir este tipo de exibição na tela do .seu 
aparelho de T.V. ligado ao seu Tk-85. 

Para começar o programa responda a pergun 
ta 

QUAL É A SUA ESCOLHA? 


Tecle & (zero) e depois o | NEWLINE 


Quando o seu TK-85 lhe perguntar: 


QUAL É O NÚMERO DE VOLTAS? 
tecle por exemplo 4 seguido de um [newLinE). 

Você verã inicialmente uma auto promoção 
do super-hiper sensacional TK-85 e do nome da co- 
autora do livro e do proprio livro dando algumas 
voltas 

ESTE É O TK-LEMBRANDO 
NILZA MARIA MIRSHAWKA 


O numero de voltas sera exatamente igual 


a 4, porêm você pode fazer com que este numero se- 
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ja maior ou nunca pare entrando em um "LOOP" eter- 
0. 


Bem aí vai o programa "ANUNCIANDO" 


5 DIM W$ (32) 
6 DIM Z$ (32) 
10 PRINT “ENTRED COMOUMO ZEROCK 6) O PARAO A OMENSAGEMO FIXA" 
15 PRINT "ENTRE O com 01 OPARA DuMA O MENSAGEM OGENÉRICA DEM O 
O DUASÓLINHAS" 
26 PRINT "QUAL QEO AO sua DESCOLHA?" 
39 INPUT N 
40 IF N = É THEN GOTO 116 
56 PRINT "ENTRE OcoMÕ A OsUA MENSAGEM" 
66 INPUT W$ 
65 INPUT Z$ 
70 LET L = LEN W$ 
75 LET M = LEN Z$ 
86 LET W$(L+1 TO 32) = "O0000000000000000000 
D00000000000" 
90 LET Z$(M+1 TO 32) = "ODOO0000000000000000 
O00000000000 " 
199 coro 1260 - 


116 LET W$ = "ESTEOQEO OO TRO LEMBRANDO” 
115 LET Z$ = "NILZAO MARIA OMIRSHANKA” 

120 PRINT "QUALOÉO 0ONUMEROO DEOVOLTAS?" 
136 INPUT V 

135 CLS 


146 FOR I=1 TO V 

156 FOR J=1 TO 32 

160 LET A$ = W$(1) 

176 LET W$(1 TO 31) = W$(2 TO 32) 
180 LET W$(32) = A$ 

196 PRINT AT 16,6;W$ 

195 LET B$ = Z$(1) 
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260 LET Z$(1 TO 31) = Z$(2 TO 32) 

205 LET Z$(32) = B$ 

216 PRINT AT 13,0; Z$ 

220 NEKT J 

230 NEXT I 

235 CLS 

246 PRINT "QUERO BRINCARÔMAIS O (S/N)?” 
250 INPUT R$ 

266 IF R$ = "S” THEN GOTO 10 


270 PRINT AT 20, 10; "ER 


286 STOP 


observação importante 0.1. 

Neste programa e em alguns outros usarer 
mos À) para representar o espaço em branco. 

Quando isto for óbvio, então o desenho do 
quadradinho sera omitido. 

Cuidado que ter "" e ter «O não e a 
mesma coisa e ambas as condições serão usadas com 
significados diferentes nos programas que serao 


vistos adiante. 


Bem, agora que voce ja viu como o progra- 


ma trabalha vamos para a parte divertida do mesmo. 


Se na pergunta "QUAL É A SUA ESCOLHA você 
teclar um “1” ou qualquer número diferente de ze- 
ro (0), isto permitira que entre qualquer tipo de 
mensagem de sua escolha desde que ela seja menor 
que 32 caracteres, 

Essa mensagem serã mostrada tantas vezes 
quantas você quiser e inclusive você pode destacã- 
la escrevendo em fundo preto e com as letras em 
branco. 

Use para isto o -modo GRAPHICS (BB). 
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PONTOS DE INTERESSE DO PROGRAMA 


1) É nas linhas de 76 à 96 que estã o interessante 
truque com o qual toma-se qualquer cadela de ca 
racteres (variável STRING) de comprimento menor 


que 32. 


2) É nas linhas de 140 à 230 que estã o movimento 
e a impressão ou seja a exibiçao das mensagens 
em duas linhas distintas ou seja nas linhas 16 
e 13 da tela. 

3) Este programa pode ser uma subrotina de progra- 


mas nos quais você quer dar destaque à uma res” 
posta com um movimento na horizontal. 


Como a(o) admirada(o) leitora jã poude 
perceber entramos com duas linhas se movendo, por 
ai aÃ at > - a Estad 
rém, não é difícil fazer com que se movam tres OU 
mais (sem exagerar! ii)... 


Pode-se tambêm mudar o sentido do movi- 


mento de algumas linhas assim como aumentar a velo: 


cidade de movimento de algumas delas. 

Como & possivel fazer isto? 

No livro TK-Divertindo em um certo exem- 
plo você irã encontrar a resposta. 

Tenha também este livro e aproveite-o pa- 


ra o seu lazer... 


2. O ENCONTRO 





Nes e programa você entra com as suas ini 
ciais ou da sua namorada(o) uma por vez e no ini- 
cio do programa (linhas 56 e 70). 

Aí então você deve apertar o 
quanto quiser e verã formando-se na tela um lindo 
desenho com as suas iniciais. 


Vamos lã execute o programa... 


10 LET AL = 6 


26 LET M = À 

30 LET T = 

sÓ LET B = 6 

56 INPUT I$ 

6) LET A = CODE I$ + 128 
76 INPUT N$ 


80 LET Bl = CODE N$ + 128 
96 PRINT AT 26, Q; 


100 LET X = INT (RND*13) + 1 
116 LET Y = INT (RND415) + 1 
1260 LET Z = INT (RND*4) + 1 
136 IF Z = 1 THEN LET L = A 
140 IF 2 = 1 THEN LETM = Mt 
150 IF Z = 2 THEN LET T = T+ 
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155 IF Z = 2 THEN LETL = B1 
169 IF Z>2 THEN LET L = 

176 LET V = 20 - X 

189 LETW=32-Y 

198. PRINT AT X-1, Y; CHR$ L 

206 PRINT AT V-1, Y; CHR$ L 

210 PRINT AT X-1, W; CHR$. L 

220 PRINT AT V-1, W; CHR$ L 

230 LET R$ = INKEY$ 

2406 IF R$ = CHR$ 118 THEN GOTO 264 
256 Goto 199 

260 PRINT CHR$ A; M, CHR$ Bl; T 





Neste pequeno programa você terã uma simu 
lação de um tapete rolando na tela do vídeo, cujo 
desenho é criado pelo mestre em tapeçaria (eu dis- 
se tapeçaria e não feitiçaria) que é o seu TK-85. 

De tempo em tempo o desenho do tapete mu 
da. 

Esta é uma linda demonstração de para que 


serve o seu micro. 
Se você gostou do NANUNCIANDOS gostara 


mais ainda deste programa: 


5 LEI K 
18 LET A 
26 LET B = 16 
36 PORE 16418, B 
46 DIM A$ (B) 

56 FOR J =A TO B 
66 LET A$(J) = CHR$ (INT (RND*49) + À) 
70 NEXT J 
80 GOSUB 396 
90 FOR L = A TO B 
95 PRINT A$(L); 
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O TETE ER EMA = mr É bom isso para a 
Rm mma 


pd memória do seu 
110 IF K = 6 + B + B THEN GOSUB 300 TK-85? 


126 IF RND <.967 THEN RUN 
130 NEXT L 

14 GOTO 90 

300 SCROLL 

316 LET K=b 

326 RETURN 





Este programa faz com que o seu TK-85 ge- 


re um número aleatório entre É e 139. 

Você deve advinhar esse numero no menor 
número possível de tentativas, 

É um programa-jogo e nele o TK-85 exibe 
sempre os limites inferior e o superior entre os 
quais se encontra o número que você deve advinhar. 


Inicialmente ele irã mostrar algo do tipo 
G< = N< = 189 


onde 6 (zero) & o extremo inferior e 189 e o extre 
mo superior. 


' dado um "pontinho" ou 


Para cada "chute' 
seja um pixei é exibido na parte de baixo da sua 
tela. 

A medida que um numero & teclado, um tes- 
te & feito para se verificar se o numero escolhido 
pelo TK-85 & o mesmo que você escolheu!.: 

Caso o TK-85 tenha escolhido o lindo nume 
ro 13 e você tenha escolhido inicialmente o 71,0 
TK-85 lhe mostraraã os novos extremos da seguinte 


forma: 


<= nN< = 71 
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com o que você facilmente percebe que O seu "chu- 


te" £oi muito alto € você deve agora escolher um 
número menor digamos 7 (que o Sacha gosta tanto. ). 


Saira uma mensagem do tipo 
7< = N< =71 


e novamente você & alertado para escolher algo aci 


ma de 7e abaixo de 71. 


Num lance de muita sorte você tecla o 13 
e como a sua advinhação esta correta serã exibida 
uma mensagem dizendo quantas tentativas você fez 


(o que aliãs você ja sabia pelos pixeis exibidos) 
e o jogo termina com uma saída do tipo 
13 ==13==13 


Este resultado fica na tela por alguns Se 


gundos que & mais ou menos O tempo que dura O seu 
contentamento por ter acertado e aí o TK-35 esco- 
the um outro numero para uma próxima partida com 


você. 
Note que o TK-85 nunca cansa e se você 


quiser parar basta simplesmente teclar um e 


depois apertar O ' 


Nunca & demais lembrar que ja apresenta” 


mos uma variante desse jogo no “BASIC Sem Segre- 


dos" 
Aí vai o programa "RANDÔMICO” completo: 
16 LET T=0 
26 LET R = INT (RND*196) 
3) LET I = O 
uÔ LET S = 189 


50 PRINT AT 3, 6; “ADVINHE O MEU o 


60 PRINT AT 12, 8; 1; "D<=ONU< 0": s;" 00” 


76 INPUT N 
gp LET T=T+ 
9) FORJ=1TOT 


100 PLOT (T-1) * e aco 
(T-1) * 3 + 1,6 É devido a esta instrução 
1LÓ NEXT J que saem impressos os pi- 


120 TF NºR THEN GOTO ie xeis "contadores" 
136 IF N<R AND N>I THEN LET 1 
149 IF N>R AND N<S$S THEN LET S 


150 GOTO 69 

160 PRINT AT 14,3; "você O ACERTOUOEMO";T; "O TENTATIVAS” 
176 LET ISR 

136 LET S=R 

19) PRINT AT 12,8;15"0 ==0":N;"D==0":s; 00" 


206 PAUSE 206 
214 CLS 
22) GOTO 18 


COMENTÁRIOS 


a) N i u 
a linha 26 gera-se um número aleatório entre 6 
e 1893. 


b) Na linha 6 ibe- j 
6 exibe-se o aviso para o "jogador"sa 


ber onde chutar. 
c) Na linha 7$ entra o seu 
d) Linhas 86-116 


1 

'super-chute” 

| com essas instruções pode-se im- 
rimi U ixei 

p r o número de pixéis na parte de baixo da 


4 End 
ela indicando quantas tentativas ja foram fei- 
tas. 


e) N i 
) Nas linhas 1280-146 executam-se as comparações 
d E 

o seu chute com o número aleatório escolhido 
pelo seu TkK-85. 


£ a. . 
) Linhas 16060-190 atravês dessas instruções conse 


gue-se exibir o re 

sultado c 
n n erto quando o 
chute 


seu 
for correto. 
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5. ATIRANDO 
BOMBAS 





Aqui neste programa você devera destruir 
oito galpões inimigos que aparecerao na parte bai- 
xa da sua tela, 

Um avião, representado por um pixel voa 
de um ao outro extremo da tela. 

Apertando a tecla "6" você lança uma bowm- 
ba. 

Você deve tentar demolir todo o quartel 
inimigo e para tanto você tem no seu aviao 18 bom 
bas. 

O jogo para quando você gastar toda a sua 
munição ou então quando você não tiver o que bom- 


bardear o que alias ê& obvio. 


16 PRINT AT 21,11; " BOBOBOBOBOBOBOB" 


2b LET B= 6 
3%) LET A = 
46 LET V =1 
56 FOR X = 3 TO 55 


66 PLOT X, 26 

70 IF A = 1 THEN PLOT X, 26-V*v/13 
8) IF INKEY$ = "6" THEN LET A = 1 
85 IF A = 1 THEN LET V=V+ 
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9) UNPLOT X, 26 - (V-1)*(V-1)/13 
106 UNPLOT X, 26 
1LÓ IF 26 - V*V/13< = É THEN GOSUB 306 


126 NEXT X 

136 GOTO 40 

306 LET A = É 

316 LET V =1 

326 LET B = B+1 

338 IF B = 18 THEN STOP 
346 RETURN 


O.I. - Quem desejar dominar completamente a função 
INKEY$ nao pode deixar de ler a secção TK-Mundo 
de Sergio Batista que no Micro Mundo de outubro de 
1983 (Nº 8) analisa quase todos os detalhes da fun 
ção INKEY$ e completa ainda com alguns interessan 
tes efeitos de tela. 

Atiãs convêm tambêm ter o numero de novem- 
bro de 1983 (N9 9) pois você assim aprenderã tudo 


sobre números binários e hexadecimais. 


6. MEMORIZAÇÃO 





Vamos agora enveradar para uma série de 
programas que fazem jus ao título do livro ou seja 
você deve desenvolver a sua memória lembrando e as 


vezes tentando advinhar. 


No programa "MEMORIZAÇÃO" esteja bem aten 


to. O seu TK-85 irã repetir apenas uma vez. 


CAMINHÃO LAÇO 
PISCINA CADEIRA 


O que & que apareceu na tela do video? 


CAMINHÃO LAÇO 
PISCINA CADEIRA 


Agora você pode começar a medir o poder 


de sua propria memoria, na privacidade de sua prô- 


pria casa ou escritorio. 


Diga que desafio você pode suportar que 


o seu TK-85 lhe proporciona o teste... 


Bem aí vai o programa "MEMORIZAÇÃO!" 


L$ PRINT "TESTEO DE OMEMÓRIA" 
26 PRINT PatkkkRAAR AAA! 

30 LET W = 06 

4] LET A$ = "PASTO" 
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50 LET B$ = "ROSAS" 
60 LET C$ = "GRAMA" 
76 LET D$ = "SAPATO" 
80 LET E$ = "AZUL" 
9] LET F$ = "ARVORE" 
100 LET G$ = "ASFALTO" 
116 LET H$ = "PAPEL" 
120 LET I$ = "QUEIMADAS 
130 LET J$ = “PRAIA” 
146 LET K$ = "JARDIM" 
150 LET L$ = "BONECA" 
160 LET M$ = "CAMINHÃO" 
176 LET N$ = "LAGO" 
186 LET 0$ = "PISCINA" 
190 LET P$ = "CADEIRA" 
200 LET Q$ = "ASSOALHO” 
216 LET R$ = "QUIOSQUE" 
226 LET S$ = "BOMBA" 
230 LET T$ = "POMAR" 
246 LET X= 
250 LET U$ = AS 
260 LET V$ = B$ 
270 LET W$ = C$ 
280 LET X$ = D$ 
296 cosus 604 
300 LET U$ = ES 
316 LET V$ = F$ 
326 LET W$ = 63 
336 LET X$ = H$ 
3406 GOSUB 606 
359 LET U$ = I$ 
366 LET V$ = J$ 
370 LET W$ = K$ 


Haja letra não 
estimada leitora 


ou venerado leitor 
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380 LET X$ = L$ 
390 GOSUB 600 


s0b LET U$ = M$ 
416 LET V$ = N$ 
426 LET W$ = OS 
430 LET X$ = P$ 
440 GOSUB 60 

450 LET U$ = Q$ 
460 LEI V$ = R$ 
47) LET W$ = S$ 


480 LET X$ = T$ 

49] GOSUB 60H 

560) CLS 

510 PRINT "vocÊO TEVE O";w; "O ACERTOS", "EMO"';X;" O) TENTATI 
vas" 

526 PRINT Hope dede dede de dede de ee e ee e e de e 

536 STOP 

606 PRINT U$, V$, W$, X$ 

610 PAUSE 120 

62) CLS 

760 PRINT "QUAIS ERAM AS PALAVRAS?" 

80) PRINT "PRIMEIRA PALAVRA:", 

816 GOSUB 1204 

826 IF Y$ = U$ THEN GOSUB 1366 

830 IF Y$ < > U$ THEN GOSUB 1406 

840 IF Y$ <> U$ THEN GOTO 8AG 

900 PRINT "SEGUNDA PALAVRA:", 

916 GOSUB 1206 

926 LF Y$ = V$ THEN GOSUB 1306 

930 IF Y$ <> V$ THEN GOSUB 1404 

94) IF Y$ <> V$ THEN GOTO 909 

100 PRINT "TERCEIRA PALAVRA:", 

1614 GOSUB 1204 
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1020 IF Y$ = W$ THEN GOSUB 1306 

1630 IF Y$ <> W$ THEN GOSUB 1400 

1040 IF Y$ <> W$ THEN GOTO 1000 

1104 PRINT "QUARTA PALAVRA: " 

1110 GOSUB 1266 

1120 IF Y$ = X$ THEN GOSUB 1306 

1130 IF Y$ <> X$ THEN GOSUB 1409 

1140 IF Y$ <> X$ THEN GOTO 1100 

1156 CLS 

1160 PRINT "OBSERVE ATENTAMENTE" 

1176 PAUSE 120 

1189 CLS 

1196 RETURN 

1266 INPUT Y$ 

1216 PRINT Y$ 

1226 LET X = X+1 

1236 RETURN 

1396 PRINT "CERTO" 

1318 PAUSE 186 

13260 LET W = W+1 

1336 CLS 

1346 RETURN 

1406 PRINT "ERRADO", ,"TENTE NOVAMENTE " 

141 RETURN 
Sugestões: Para incrementar esse programa você pode 
inicialmente trocar as palavras (linhas 4060-230) e 
aumentar o numero delas mas cuidado com as varia- 
veis STRING que irã usar em seguida pode fazer um 
sorteio das mesmas. 

Uma "boa" nesse ponto talvez fosse o uso 
de uma variável STRING indexada porem isto trara 
alguns problemas que logo aprenderemos a contornar 

Uma idéia interessante, e dar menos tempo 


a "jogadora" ou ao “jogador” para a memorização di 
minuindo o PAUSE da linha 619. 


7. O PRESENTE ESCONDIDO 





A história trivial é aquela do homem ou 
de uma mulher de sorte que num passeio solitario e 
sem pretensão em uma práia encontra uma garrafa e 
dentro dela esta o mapa de um tesouroii?i.: 

O difícil & achar uma tal garrafinha e 
principalmente o mapa em questao estar certo. 

No programa que daqui hã pouco você vai 
teclar ninguém encontra uma garrafa com o mapa de 
um tesouro, mas mesmo assim & muito instrutivo 
principalmente para os pais caso queiram no seu si 
tio ou na sua casa esconder um ovo de Pascoa ou um 
outro presente de seus filhos. 

Neste programa toda vez que você for in- 
quirido conta-se como uma tentativa no momento que 
você responde "SIM", 

Toda e qualquer outra resposta significa 


que você nao foi naquele lugar procurar o presente. 


16 PRINT "*vocêÊ DESTA OPROCURANDOS" 


26 PRINT axei Ri A Ade 


30 PRINT "*UM() PRESENTE JESCONDIDO*" 


A) PRINT VERA RARAALARALHALAS AA !! 


56 PRINT "APERTE O QUALQUER Ó TECLA O PARA O JOGAR" 
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6) LET T=Q 

76 IF INKEY$ = ""THEN GOTO 70 
80) LET R = INT(6*RND)+1 

96 CLS 


166 PRINT "* OOOx" 

114 PRINT "O+0*0" 

1260 PRINT "DO*" 

136 PRINT "O*0* O" 

146 PRINT "*000*" 

156 PRINT 

160 PRINT "NOOMAPAOQUE ORECEBEU, 'X' INDICA (JO O)LUGAR” 
176 PRINT 

186 GOTO 950 

194 PRINT "MASO onDE DESTA O OO PRESENTE?" 

200 PRINT "SERAOQUEDESTAONOOJARDIM?" 

216 INPUT D$ 

220 IF D$ = “SIM” THEN GUTO 400 

246 PRINT "SERÁ QUE O ESTÃO NA OMARGEMODO D LAGO? " 
256 INPUT E$ 

266 IF E$ = "SIM" THEN GOTO 506 

276 PRINT "SERAOQUEDESTÁONAO ARVORE?" 

286 INPUT F$ 

290 IF F$ = "SIM" THEN GOTO 600 

360 PRINT "SERÁ OQUE OESTAÃONAO CAVERNA?" 

314 INPUT G$ 

320 IF G$ = "SIM" THEN GOTO 706 

330 PRINE "SERÁ OQUE OESTÃO EMO CIMA ODAO ROCHA?" 
340 INPUT H$ 

350 IFP H$ = "SIM" THEN GOTO 800 

360 PRINT "SERAO QUE ESTÃO NO OrorRO ODACICASA?” 
376 INPUT I$ 

389 IF I$ = "SIM"! THEN GOTO 904 

396 GoTO 950 


spo 
416 
426 
50b 
519 
524 
ego 
616 
620 
700 
714 
726 
sHg 
816 
820 
96w 
919 
926 
956 
953 
955 


966 
965 


976 
984 
983 


986 
996 
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LE R = 1 THEN GOTO 984 


GOSsUuB 1400 

Goro 246 

IF R = 2 THEN GOTO 986 
GOSUB 1004 

GOTO 276 

IF R = 3 THEN GOTO 986 
GOSUB 1004 

GOTO 346 

IF R = 4 THEN GOTO 980 
GOSUB 1006 

GOTO 336 

IF R = 5 THEN GOTO 980 
GOSUB 1006 

GOTO 360 

IF R = 6 THEN GOTO 986 
GOSUB 1600 

GOTO 196 

PRINT 


PRINT "O OPRESENTE O PODE OQ ESTAR:" 

PRINT “NO O JARDIM O"; "NA OMARGEMO DO OLAGOO 
ou O”; 

PRINT "NA DARVORE DOU O";"NA OCAVERNAO "; 
PRINT "ou OEMOcIMA ODAD ROCHA O"; "oUONOO 
FORROODAÚICASA." | 

GOTO 196 

PRINT "vocÊ OENCONTROU DO OPRESENTE." 

PRINT "APROVEITE DAS OREGALIAS OQUE DELEO 
vAI OLHE O PROPORCIONAR." 

PRINT 

PRINT "vocÊ OTEVE D";T;" OTENTATIVAS OERRA- 
DAS" 

STOP 
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1060 CLS 

1016 PRINT "Não, O 0 DPRESENTE ONÃO OESTÃOAI”, 
1026 PRINT "TENTE ODE ONoVvO" 

1625 LET T=T+1 

1636 RETURN 


Eds DF 
TINHAM 
TRAP ERA 


Eai 
A 


] = = EE 
PriIT 
rri—r-rdd 





res nodosas €& atraves de urzes no pantano. 

Um cachorro late longe. 

Dentro da majestosa mansão a empregada 
chora copiosamente. 

O barão acaba de ser encontrado morto, nu 


ma enorme poça de sangue. 


Como inspetor chefe da DESCE (Departamen- 
to de Elucidação e Solução de Casos Estranhos) vo- 
cê acaba de ser chamado para resolver o caso. 

Além da bela e chorosa empregada são sus- 
peitos em potencial O imponente mordomo e à velha 
pajem. 

O caso É complexo e você não esta certo 
de como e onde foi assassinado O gentil barão. 

A identidade do(a) assassino(a) não estã 
clara. 

A primeira grande decisão aparece quando 
você investiga as pistas, tentando deduzir onde O 
barão foi morto. 

Satisfeito com essa parte você procura pe 
la arma do crime e assim que ficar claro onde e co 
mo ele foi assassinado a única pergunta que resta- 


rã responder ê& "quem foi o autor ?”, 
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16 CLEAR 
26 LET M$ = "MORDOMO" 
30 LET E$ = "EMPREGADA" 
46 LET P$ = "PAJEM! 


Só PRINT "NA VÉSPERA ODO OINVERNO EO": 
6) PRINT "NUMA MANSÃO O"; 

76 PRINT "O OBARÃO OFOI O) ASSASSINADO. " 
75 FOR J=1 TO 32 

80 PRINT "*"; 

96 NEXT J 

106 PRINT "NOSSO ELENCO:” 

116 PRINT "O (OIMPONENTE O";M$ 

120 PRINT "AÚBELA D";E$ 

134 PRINT "A OVELHA O"; P$ 

140 LET A$ = "PUNHAL” 


150 LET B$ = "REVOLVER” 

160 LET C$ = "ATIÇADOR” 

176 LET D$ = "COPA" 

189 LET F$ = "QUARTO" 

190 LET G$ = "BIBLIOTECA" 

206 RAND 

216 LET H = INT(RND*3)+1 

226 LET N = INT(RND*3)+1 

234 LET R = INT(RND*3)+1 

246 PRINT 

259 PRINT “APERTE UMA TECLA PARA JOGAR” 
260 IF INKEY$ = "" THEN GOTO 266 
276 CLS 


288 PRINT "EM ÔQUE OAPOSENTO?” 
294 PRINT D$, F$, G$ 


306 INPUT V$ 

316 IF H = 1 THEN LET S$ = "COPA 

320 IF H = 2 PHEN LET S$ = "QUARTO" 

330 IF H = 3 THEN LET S$ = "BIBLIOTECA" 
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346 IF V$ = S$ THEN GOTO 400 

350 PRINT "PISTA:" 

360 IF S$ = D$ THEN PRINT "COMIDA" 
370 IF S$ = F$ THEN PRINT "TRAVESSEIRO" 
386 IF S$ = G$ THEN PRINT "LIVROS" 
396 GOTO 280 

umm CLS 

410 PRINT “CERTO. FOI NO(A) O'"';V$ 
424 PRINT "MAS, COM ÓÔQUE DARMA?" 
430 PRINT A$, B$, C$ 

444 INPUT W$ 


450 IF N = À THEN LEI T$ = "PUNHAL” 

a66 IE N = 2 THEN LET T$ = “"REVOLVER" 

476 IF N = 3 THEN LET T$ = "ATIÇADOR" 

480 IF W$ = T$ THEN GOTO 546 

496 PRINT "OPISTA:" 

SPO IF T$ = A$ THEN PRINT “BAINHA! 

516 IF T$ = B$ THEN PRINT "BALAS" 

526 IF T$ = C$ THEN PRINT "TORASODEOMADEIRA" 
530 GOTO 424 

54 CLS 


559 PRINT "0O";T$;" OESTÃOCERTO" 

569 PRINT "QUEMOSÃO Dos O PROTAGONISTAS ODA DESTÓRIA?" 
570 PRINT M$, E$, P$ 

588 INPUT X$ 

590 IF R=1 THEN LET U$ = MORDOMO” 

600 IF R=2 THEN LET U$ = "EMPREGADA" 

616 IF R=3 THEN LET U$ = "PAJEM" 


62) IF X$ = U$ THEN GOTO 674 
625 PRINT "PISTA:" 


630 IF U$ = M$ THEN PRINT “ELE SERVE" 
640 IF U$ = E$ THEN PRINT "ELA LIMPA" 
654 IF U$ = P$ THEN PRINT "AMA CRIANÇAS" 
660 GOTO 566 


676 CLS 
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686 PRINT "VOCÊ ORESOLVEU DO ÚCRIME EI 
696 PRINT "FOI O(A)O"; US$; "O quem OMATOUO " 
706 PRINT "NO(A) O"; s$; "Ocom um O", T$ 


COMENTÁRIO: 

É evidente que após a execução do progra- 
ma, ele & auto-explicativo e não custa nada (a nao 
ser um pouco da sua imaginação...) você aumentar o 
número de pessoas que trabalhavam para o barao(jar 
dineiro, motorista, cozinheira, etc.) com o que se 
aumentará o número de suspeitos. 

É evidente que deve-se correspondentemen” 
te aumentar o número de possiveis armas € locais 
do crime. 

As armas poderiam ser foice, chave de fen 
da, facão, etc. e os "novos" locais de crime estu 
fa, garagem, dispensa etc. sendo as possiveis pis- 


tas flores, pneus, bolo, etc.. 


9. ENTRANDO EM FRIA 





Vejamos agora um programa no qual & você 
que vai entrar em uma gelada, jã que no programa 
anterior quem entrou numa foi o barão. 

É intuito deste programa forçar você eclê 
tica(lo) leitora(leitor) a memorizar os lugares mais 
frios da superficie terrestre. 

Você evidentemente sabe que cada quilôme- 
tro quadrado na Antartica recebe menos energia so- 
lar que um quilometro quadrado em Bauru ou na ame- 
na Ibiuna. 

O programa foi feito para os dados da Ta- 
bela 1. 


Não esqueça que a regiao para onde você 
vai é& maravilhosa mas o clima & muito variavel. 
Você poderã ter num sô dia ventos uivan- 
tes, chuvas torrenciais, arco-iris, inundações,tem 
peratura baixa, trovoes e relampagos. 

Bem, que sabe aí vale o provérbio: 

"neblina baixa, sol que racha 


neblina na serra, chuva na terra” 


Você acha que nao vale? 
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0.1. - Olhe os dimensionamentos e os nomes que se 


usaram no programa. 


DIM — P$(8,17) T(8) N$(8,16) 
| | b 
Posição na su- 


perficie terres 
tre (continente) 


























Temperatura em 


Nome da regiao 
graus centigrados 


ou do pais 





África 


-22,2 Australia 


-32,8 América do Sul 


-88,3 Antartica 


Groenlandia 


Esta é a "nossa" virgula 
decimal. Mas o que você 
usa no BASIC & o ponto 
decimal 


Marrocos 





Yukon 


URSS 


Nova Gales do 
Sul 









Argentina 


URSS 








Estação Vostok 


Estação Northice 






Tabela 1 


O.I. No programa que vai e nos seguintes indica- 
Ê 
remos os espaços em branco com O) apenas onde per” 


sistir a duvida. 


16 DIM R$(8,17) 
26 DIM P$(8,17) 
36 DIM T(8) 

46 DIM N$(8,16) 
56 FOR I = 1 TOB8 
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60 INPUT P$CI) 

ART TC) | >> Gadoo aa tabelas 7? 
gd INPUT N$(I) 

og NEXT 1 

106 RAND 

104 PAUSE 100 

106 CLS 

116 LET L = INT (9 * RND) 

126 IF L<l THEN GOTO 116 


134 PRINT AT 2,2; "VAMOS TENTAR MEMORIZAR OS LUGARES MAIS 
FRIOS DO MUNDO" 


154 PRINT AT 7,2; "O PAÍS OU O PONTO MAIS FRIO" 

168 PRINT AT 9,2; "DA SUPERFÍCIE DA TERRA NA" 

170 PRINT AT 11,5;N$(L); AT 11, 28;"E:" 

180 INPUT R$(L) Aqui entra a sua resposta 

196 IF P$(L) = R$(L) THEN GOTO 256 

200 PRINT AT 14,2; "ESTÁ TOTALMENTE ERRADO VOCÊ ENTROU 
NUMA GELADA! 

216 COTO 306 

256 PRINT AT 15,2; “VOCÊ ACERTOU AMIGO(A)” 

266 PRINT AT 16,2;"ALIÁS A TEMPERATURA MÍNIMA NO(A)" 

276 PRINT AT 18,2; R$(L);" O E:" 

280 PRINT AT 19,2;T(L);" (] GRAUS CENTÍGRADOS" 

295 PRINT 

306 PRINT "SE VOCÊ QUER CONTINUAR TECLE S CASO CONTRÁRIO 
QUALQUER OUTRA TECLA PARA PARAR" 

316 IF INKEY$ = "" THEN GOTO 310 

320 IF INKEY$ = "S” THEN GOTO 106 

34) PRINT AT 20,2;"MULTO OBRIGADO POR TER ESTUDADO O SEU 
AMIGO TK-85" 

356 STOP 
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Comentários e sugestoes 


a) Bem como você & um(a) garoto(a) tropical quetal 
fazer algumas mudanças bem simples no programa 
"ENTRANDO EM FRIA” passando o mesmo a Ser "ES- 
TOU NUMA QUENTE" e incluindo no mesmo 08 luga- 


res mais quentes do mundo que estão na Tabela 2, 
















Posição na super 
fície terrestre 
(continente) 


America do Norte 


E Ce so] 
América do Sul 


Antartica 














Temperatura 
em graus 
centigrados 


Nome da regiao 
ou do pais 


Israel 
Queensland 











Espanha 
Argentina 


Peninsula de 
Palmer 
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,4 
Filipinas 42,2 
Tabela 2 


Neste ponto a grande sugestão ê& você ob- 
ter (e isto & um trabalho de pesquisa) todos os 
pontos mais quentes dos diversos estados do Brasil 
e organizar um programa análogo ao "ENTRANDO EM 
FRIA”. 

Para melhorar ainda mais, para O estado 
no qual você vive obtenha os 10 municípios nos 
quais se registraram nos últimos cinco anos as tem 
peraturas mêdias mais elevadas. 

É realmente um conjunto de informações 


muito util. 


Aliãs. este tipo de informações aparece mui 


to bem condensado no Almanaque Abril. 


DIAS DO MÊS 





Vamos a um outro treino de memória via 
TK-85 mostrando outra vez a sua habilidade (a domi 
cro) de localizar dados e a sua de gravar os E 
mos. | 

Neste programa permite-se errar até no mã 
ximo 4 vezes e para receber os parabêns deve-se 


acertar 8 vezes. 


- . 
Ài vai o programa: 


1 CLS 
16 LET E = 
26 LET N = 6 


56 DIM D(12) 

106 LET D(1) = 31 
116 LET D(2) = 28 
126 LET D(3) = 31 
136 LET D(4) = 36 
140 LET D(5) = 31 
150 LET D(6) = 39 
160 LET D(7) = 31 
170 LET D(8) = 31 
180 LET D(9) = 30 
190 LET D(16) = 31 
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Note que 
2064 LET D(11) = 30 1 - janeiro 
2 - fevereiro 
216 LET D(12) = 31 A aoaEs Co 
248 RAND 4 - abril 
5 - maio 
256 LET M = INT (13 * RND) ds dunho 
260 IF M<1 THEN GOTO 256 fe 7 - julho 
270 PRINT "QUANTOS DIAS TEM O MES DJ";M ave aos to 
? 9 - setembro 
286 INPUT D 10- outubro 
11- novembro 
296 CLS 12- dezembro 


300 IF D = D(M) THEN GOTO 50G 

316 PRINT "VOCÊ ERROU E PORTANTO DEVE MEMORIZAR MALS” 

320 PRINT "O NÚMERO CERTO DE DIAS É ()";D(M); CIPARA O MES D";M 
330 LET E=E+1 

340 IF E >4 THEN GOTO 986 


356 GOTO 256 

500 PRINT "MUITO BEM-ESTÁ CORRETO" 
516 LEI N=N+1 

520 IF N>8 THEN GOTO 1606 


530 GOTO 256 
986 PRINT "LAMENTÁVEL-VOCÊ ERROU DEMAIS” 


1906 STOP 


Comentários e incrementos 


a) Para tornar o seu programa mais completo que 
tal incluir o ano bissexto? 
Para tanto basta fazer ou seja incluir no pro- 


grama acima 





102 INPUT À Aqui A representa o ano 


104 PRINT "A=";A 

106 IF INT(A/4)<> A/4 THEN GOTO 116. 
108 LET D(2) = 29 

109 -GoTO 126 


b) 


c) 
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Pode ser que voce queira antes saber quantos 


dias tem cada mes e para tanto basta incluir: 


220 FOR I = 1 TO 12 
225 PRINT SD( LAO) pm "D(1);"DO"; 
236 NEXT I 


O que voce deveria fazer para que saisse tambêm 
o nome do mes abreviado com as suas três pri- 
meiras letras? 


A “answer” di e i 
o . - . 
go a resposta e incluir o seguinte 


trecho no programa: 


60 DIM N$(12,3) 


62 LET N$(1) = "JAN" 
64 LET N$(2) = “FEV” 
66 LET N$(3) = "MAR" 
68 LET N$(4) = "ABR" 
70 LET N$(5) = "MAI" 
72 LET N$(6) = "JUN” 
74 LET N$(7) = "JUL" 
76 LET N$(8) = "Aco" 
78 LET N$(9) = "SET" 
80 LET N$(10) = "OUT" 
82 LET N$(11) = "NOV! 
84 LET N$(12) = "DEZ" 


Valeria então a pena mudar a linha 225 para 


225 PRINT N$(1);"O":;"TEMO"; D(I);"D DIAS" 


W. NIKOLAI 





Em homenagem ao grande amigo(entre outras 
coisas tem mais de 2 metros de altura) do meu mari 
do e categorizado mestre de Química Gustavo “Niko- 
lai" Nars aí vai mais um programinha de auto-ins- 
trução, sobre os elementos químicos, seus nomes, 
simbolos e numeros atômicos. 

Para não deixar a “moringuinha”" da leito- 
ra ou do leitor cheinha de coisas estranhas vamos 
brincar apenas com os 13 primeiros elementos da ta 
bela periódica colocados em ordem alfabética (veja 
a Tabela 3. 

A finalidade do programa que vem a seguir 
& entrar com o simbolo do elemento e a(o), “alu- 
na"(o) que no caso & a leitora (leitor) entrará 


com o nome completo do elemento. 


Em caso de coincidência o TK-85 lhe darã 
os parabens e como uma "deixa" lhe dará tambêm o 


número atomico deste elemento. 


Joia, nao & Gustavo Nikolai?!? 
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O. 


1. Veja os DIM 


S$(13,2) E$(13,9) N(13) 


ig Nú 
Símbolo Nome do umero 


elemento atômico 
actinio 
A » 
aluminio 
= + 
americio 
antimônio 
Em * 
argônio 
os, 
arsênico 
astato 
bario 


+ “ 
berilio 


berquelio 


bismuto 
boro 
bromo 

16 DIM E$(13,9) tapsiaao 

26 DIM N(13) 

36 DIM S$(13,2) 

sô DIM R$(13,9) 

56 FOR 1 = 1 TO 13 

60 INPUT E$(I) 

70 INPUT NÍI) 

86 INPUT S$(I) 

9] NEXT I 

95 CLS 

100 RAND 

1160 LET R = INT (RND * 14) 

120 IF R<1 THEN GOTO 116 

136 PRINT AT 2,2;"QUÍMICA-ELEMENTOS-SÍMBOLOS E NÚMEROS 

ATÔMICOS" 
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140 PRINT AT 5,3;"0 NOME DO ELEMENTO CUJO SÍMBOLO E: " 

156 PRINT AT 7,13;5$(R) 

"160 REM ENTRE COM O NOME CORRETO DO ELEMENTO 

176 INPUT R$(R) 

186 IF ES(R) = R$(R) THEN GOTO 300 

196 PRINT AT 9,2;"VOCÊ DISSE QUE E;O";R$(R); "DJPORÉM ESTÁ 
ERRADO; O NOME CERTO EC)"; E$(R) 

206 GOTO 316 

300 PRINT AT 12,2;"PARABÉNS, REALMENTE U)";S$ (R); PLIEO 
SÍMBOLO DOD"; ES(R); "DE SEU NÚMERO ATÔMICO É D";N(R) 

316 PRINT AT 15,2;"SE VOCÊ QUER CONTINUAR TECLE S E PARA 
PARAR TECLE QUALQUER OUTRA TECLA” 

320 LF INKEY$ = "" THEN GOTO 320 

330 IF INKEY$ = "S” THEN GOTO 95 


340 PRINT AT 20,2; " Lonileraado QUÍMICA il 


356 STOP 


Alterações que poderã fazer a eclêtica 


leitora ou o esclarecido leitor. 


a) Completar toda a tabela periódica, deixando des 
ta forma Dmitri Ivanovitch Mendeleiev exatamen- 
te 78 anos após a sua morte extremamente per- 


plexo. 


b) Feita a primeira alteração, Gustavo Nikolai vai 
querer avaliar a sua capacidade de identificar 
corretamente os elementos e os seus números atô 


micos. 


Para tanto convem mudar um pouco o pro- 
grama fazendo 26 testes ou perguntas e caso o nume 
ro de acertos seja inferior a 75% a(o) aluna(o) de 
ve continuar atê que chegue ao nível minimo deacer 


tos prefixado. 
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Caso este programa não sirva para apren- 
der Química servirã pelo menos para que você se 
torne estrela ou astro em posteriores resoluções 


de palavras cruzadas via microcomputador. 


Chi, chi, chi, se você não vai ser quimi- 
co e detesta e abomina palavras cruzadas o progra- 
ma em questao deve ser deixado como estã, sem our 


tras modificações. 


Não devem tão pouco ser dirigidos impro- 


périos ao autor do livro pelas sugestoes dadas... 


O.I. - É evidente que o seu TK-85 pode ser usado 
como um eficiente professor. 

O programa do leitor da Microhobby N9 4 
(1983) de nome "Professor" e de autoria de Bernar- 
do C. Stein mostra muito bem isto. 

£ um programa bem longo porêm se você  en- 
trar com ele serã recompensado com um excelente au 
xiliar de instrução e quem sabe a aula se tornará 


menos monótona e as notas (quem sabe) subirao. 


12. MATT DILLON 





Você estã sonhando com um dos seus herois 
preferidos do “velho oeste” (Roy Rogers, Durango 
Kid, Tom Mix, Kitty Balloo, Matt Dillon). 

Na cidade esta também o perigoso "Billy 
the Kid” e muitos outros bandidos (alias & o que 
não falta em nenhum lugar...) 

Você nao pode fugir a sua obrigação e de- 
ve matar os fascinoras, 

Um unico tiro de Matt Dillon & mortal po- 
rêm para que você morra (você E o Matt Dillon) de- 
ve receber mais de três ferimentos. 

Deve-se entretanto "advinhar" onde pode 
estar o "marginal". 

Serã que ele estã no curral, no teto do 
hotel, no estábulo, no 'saloon', na casa do ERR 
to (que também não é flor que se cheire), nos ganas 
dos do banco, no armazém, no vagão na estação fer- 
roviaria ou no consultório do doutor? 

Por incrivel que possa parecer (em sonho 
Vale tudo) você possui um TK-85 com um programa 
qJue lhe darã a "chave" para combater os mais peri- 
80sos pistoleiros do ceste. 

Note bem que se você descobrir onde estã 


O - . vu “ . Ea 
B111y the Kid,com um único tiro você mata o mes- 
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mo, porém se ocorrer o contrário é você que leva o 


tiro e você não pode ter mais que três ferimentos. 


O heroi tem suas vantagens, mas não  & 


imortal como pode-se constatar... 


Em cada "encontro! da-se apenas um tiro 
(problema de arma...) e em alguns casos os tiros 
nao 


podem ser a esmo, você acha que ele estã lã e 
esta... 


Bem aí vai o programa "MATT DILLON” 


16 CLEAR 
2) LETM=Ô) ————————» tiros mortais 


tiros perdidos 





36- LET X = É 
40 LET F = 
50 LET A$ 
66 LET B$ = “HOTEL” 

76 LET C$ = "ESTÁBULO" 

80 LET D$ = "SALOON" 

96 LET E$ = "CASA DO PREFEITO" 

100 LET F$ = "VAGÃO" 

116 LET G$ = "BANCO" 

120 LET H$ = "ARMAZÉM" 

130 LET I$ = "CONSULTÓRIO" 

149 PRINT "ATIRE NO PISTOLEIRO O"; 
159 PRINT "ANTES QUE ELE O ACERTE” 


169 PRINT 
176 PRINT "ELE OU VOCÊ PODEM ESTAR EM um" 


186 PRINT "DOS SEGUINTES LUGARES: 
185 PRINT A$, B$, C$, D$, E$, F$, G$, H$, I$ 


196 PRINT 
200 PRINT “ONDE VOCÊ ACHA QUE ESTÁ O BANDIDO?" 


ferimentos recebidos 





"CURRAL" 


216 INPUT R$ 
215 PRINT "ONDE VOCÊ SE ENCONTRA?" 
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226 INPUT Q$ 

234 CLS 

246 PRINT "VOCÊ DEVE ATIRAR DE O"; Q$; "OPARA O";R$ 
250 PAUSE 209 
266 GOSUB 100% 


265 CLS 
276 PRINT "BAAANG" 
280 IF R$ = você achou o pistolei 
$ = Z$ THEN GOTO 100 eeiaeiro P iro 
290 IF Q$ = 


Z$ THEN GOTO 7MQ 

300 PRINT "VOCÊ DEU UM TT T—.= você "foi achado" 
T 1 . asa 
IRO A EsMO" ou seja esta em 


316 LET X = X+41 uma armadilha 
340 IF F >3 THEN GOTO 806 
350 PRINT “TENTE DE NOVO MATT" 
360 PAUSE 254 
370 CLS 
386 GOTO 146 
406 CLS 
416 PRINT "VOCÊ DESCOBRIU QUE BILLY ESTÁ NO O": 
42) PRINT Z$ 
436 LET M = M+1 
440 PRINT 
450 PRINT 
460 PRINT "UPS, PLAPT 
ê » PLUCT - CUMPRIU BEM A p 
476 PRINT Espe 
480 PRINT "VOCÊ QUER CONTINUAR LUTANDO (SIM/NÃO) ?" 
49% INPUT S$ | 
50H CLS 
910 IF S$ = "SIM" THEN GOTO 149 
320 PRINT “VOCÊ, MATT DILLON MATOU O"; M; "OBANDIDO (s)" 
530 PRINT “OE PERDEU O", x; "OTIROS":. 
340 PRINT "DE LHE ACERTARAM O"; F; "O BALAÇO(S)" 
556 STOP 
700 PRINT “UL, UI, UI - VOCÊ NÃO SABE, MAS ESTÃO"; 
716 PRINT "NO COVIL DO BANDIDO QUE É No:OQ". 


70 


726 PRINT Q$ 
730 PRINT "VOCÊ CAIU EM UMA ARMADILHA O va 
740 PRINT "E ELE VAL ACERTÁ-LOO "5 13. SACHA 
750 PRINT "A SOLUÇÃO É IR AO MÉDICO PARA EXTRAIR A BALA" CERTEIRO 
760 LET F = F+ 

765 IF F>3 THEN GOTO 8d 

776 PRINT "VOCÊ JÁ TEMO"; F; "(OFERIMENTO(S)" 

780 GOTO 478 

800 PRINT "O SEU CORPO ESTÁ TÃO FURADO QUE PARECE UMA TELA." 
816 PRINT "DESSA VOCÊ NÃO ESCAPA...” 
820 PRINT "É O SEU FIM MATT DILLON” 
836 PRINT " 000 *000"” 
832 PRINT " ODO *000" 
834 PRINT! 0) MAH 

836 PRINT " OOO *" 

838 PRINT " OOO +" 

839 PRINT ” OOO *" 

846 PRINT” OOO *" 

845 GOTO 556 

1000 LET R = INT(9*RND) + 1 














Sacha Certeiro, o famoso guia de "“safaris" 


e um profundo conhecedor do que restou conhecer das 
selvas da África. 





0.1.1.-Na Microhobby Nº 7 
(1984) o programa do 
mes & o "Duelo" de auto 
ria de Gustavo Egidio | 
de Almeida. 


Um dia no seu quartel-general instalado 
no Guaruja foi recebido um telegrama dizendo 
ele estava perdido. 


que 


É um programa bas- 
tante atraente e vale 
a pena o(a) informado(a) 
leitor(leitora) tirar 
ao menos uma copia do 


Quem enviou o telegrama estava tão deses- 
perado que esqueceu citar o pais do continente afri 


cano onde Sacha Certeiro “se perdeu". 


1010 IF R = 1 THEN LET 2$ = AS mesmo, desde que não No telegrama também não havia nenhum indi 

1020 IF R = 2 THEN LET Z$ = B$ possua a Mierohobby; ” cio sobre o tipo de caça na qual estava envolvido 
- que alias e lamentavel. S q 

1436 IF R = 3 THEN LET 2$ = C$ acha Certeiro e o seleto grupo de 3 homens e 71lin 

1040 IF R = 4 THEN LET Z$ = D$ das mulheres (mulher caçando na África & dose pará 

1059 IF R = 5 THEN'LET Z$ = E$ mamute não & cara leitora?...) | 

1060 IF R = 6 THEN LET Z$ = F E , 

pa LE E. E Voce devera aplicar e exaurir toda a sua 
= N LET Z$ = 5 

1076 IF R = 7 THE $ capacidade dedutiva além de rezar um pouco para po 
= N TZ$=H à 

1080 IF R 8 THEN LE $ $ der encontrar Sacha Certeiro e o seu safari. 

1696 IF R = 9 THEN LET Z$ = I$ 


1100 RETURN º Porem a selva e cheia de surpresas desa- 
gradaveis!!! 
0.1.2- Esse programa "genocidico" estã tao compri- 


a a Assim e e : : : 
do que recuso-me a dar sugestoes para melhora-lo. que voce descobrir o tipo de animal 
Aliãs a única forma de melhorar e a de que eles estavam caçando é necessário saber em que 
não ter -bandidos.!: Parte do 


E ísto uma utopia? continente africano eles estao. 
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os , ma - 
E as dúvidas e incertezas nao param al... 


” . . dd - 
Uma vez definido o animal e o pais, sera 


que da tempo de você voar com uma expedição de res 
gatep desde São Paulo atê a Kfrica,o que aliãs no 
ano de 1984,exige ainda um número n>2 de escalas 
e mudanças em diferentes aeroportos,e tirar o seu 
grande amigo Sacha Certeiro,e principalmente as 7 
lindas mulheres do sacrifício que pode ocorrer nas 
mãos de uma tribo de pigmeus gigantes (isto e pior 
que pequeno anão...) 


Apenas se você conseguir realizar essavia 


gem no número certo de dias ê que o grupo podera 


ser salvo. 
E não adianta aqui dizer que o hoje € O 


ma. o * . 
ontem do amanha como faz o Luiz Fernando Verissimo. 


O negócio E para jã e vã com otimismo pois 


o Sacha Certeiro e os outros (principalmente as ou 


tras) precisam disso. 


O seu lema a partir de agora E: 


"pensar para acertar 
calar parasresistir 
agir para vencer” 


14 CLEAR 

15 PRINT DKK ERRA! 

2) PRINT "*O SAFARI PERDIDO*" 

25 PRINT "*AJUDE OSACHAÕE. ..*" 

36 PRINT NARRA RARA 

46 RAND 

50 LET B$ = "RINOCERONTE" 

60 LET C$ = "GAZELA” E | 

76 LET D$ = "HIPOPOTAMO" — Aqui estao os bichos 
BG LET E$ = “LEÃO” 


96 LET F$ = "ZEBRA" 
106 LET G$ 
116 LET H$ 
126 LET I$ 
136 LET J$ 
146 LET K$ 
150 LET L$ 
160 LET M$ 
178 LET N$ 
LET O$ 
LET P$ 
LET Q$ 
LET R$ 


186 
196 
206 
216 
226 
236 
240 
256 
266 
270 
289 
296 
304 
sao 
418 
420 
430 
446 
u5g 
466 
“76 
484 
496 
596 


LET 
LET 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


voo ddr» pr-r>Drp->> 
H 


P = 


PRINT 


3 THEN 


"TIGRE" 
"ELEFANTE" 
"CROCODILO" 
"MACACO" 
"ETIÓPIA" 
"NIGÉRIA" 
"coNco” 
"RODESIA" 
"QUÊNIA" 
"TANZÂNIA" 
"Toco" 

"LESOTO" 
A = INT(9*RND) + 
P = INT(S*RND) + 


THEN 
THEN 


THEN 


5 THEN 


THEN 
THEN 
THEN 
THEN 


1 THEN 


THEN 


3 THEN 
4 THEN 
5 THEN 
6 THEN 


THEN 
THEN 


LET 
LET 


LET 
LET 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


X$ 
X$ 
X$ 
X$ 
X$ 
K$ 
K$ 
K$ 
X$ 


Y$. 


Y$ 
Y$ 
Y$ 
Y$ 
Y$ 
Y$ 
Y$ 


B$ 


C$. 
“D$ 


E$ 
F$ 
G$ 
H$ 
I$ 
J$ 
K$ 
L$ 
M$ 
N$ 
og 
P$ 
Q$ 
R$ 


“|gantes", mas de qualquer 
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rw Aqui estão os países 


O.I. - É evidente que is 
to é uma brincadeira e 
pode ser que em alguns 
desses paises hoje em 
dia ou nunca, existiram 
os animais caçados e tão 
pouco os tais pigmeus gi 















forma é uma "“brincadeiri 
nha" salutar e com todo 
o respeito... 
As mulheres que cai 
ram nas mãos dos pigmeus 


que o digam! !: 
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514 PRINT “O SAFARI ESTÁ PERDIDO EM ALGUNS DOS SEGUINTES 


PAÍSES" 
526 PRINT 
530 PRINT K$, L$, M$, N$, 0$, P$, 0$, R$ 
546 PRINT 
550 PRINT "PARA JOGAR APERTE UMA TECLA " 
560 IF INKEY$ = "THEN GOTO 569 
576 CLS 
580 PRINT "O QUE ELES PODERÃO ESTAR CAÇANDO?” 
590 PRINT B$, C$, D$, E$, F$, G$, H$, 1$, J$ 
606 INPUT A$ 
61Ó IF A$ = X$ THEN GOTO 640 
626 GOSUB 1064 
636 GOTO 594 
64] GOSUB 1306 
650 PRINT "AGORA ACHE EM QUE PAÍS ESTÁ O SAFARI” 
666 PRINT K$, L$, M$, N$, 0$, P$, Q8$, R$ 
676 INPUT W$ 
686 IF W$ = Y$ THEN GOTO 716 
698 GOSUB LOG 
706 COTO 660 
716 GOSUB 1308 
7360 PRINT "AGORA VAMOS SE APRESSAR PARA SALVÁ-LOS" 
740 LET D = INT (RND*7+2) 








Aqui você entra com O 
seu "chute" sobre o 
animal que estã sendo 
caçado 









chute do pais 


756 PRINT "QUANTOS DIAS VOCÊ DEVERÁ LEVAR PARA CHEGAR A 


ELES?" 
766 PRINT "PENSE NUM NÚMERO INTEIRO ENTRE 2 E 8 DIAS” 
776 INPUT D1 
786 IF Di = D THEN GOTO 836 
796 COSUB 1908 
806 PRINT "TENTE UM OUTRO NOMERO" 
826 GOTO 769 
836 GOSUB 1396 
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894 PRINT "VOCÊ É UM HEROI E SALVOU SACHA E OD)"; 

996 PRINT “O SAFARI QUE ESTAVA CAÇANDO O"; x$; "OD"; 
916 PRINT "NA ÁFRICA NO PAÍS CHAMADO O"; Y$; "OO"; 
926 PRINT "REALIZANDO A PROEZA EMO"; D; "ODIAS" 
936 STOP 

1600 CLS 

1916 PRINT "ERRADO, TENTE NOVAMENTE” 

1426 RETURN 

1308 CLS 

1314 PRINT "CORRETO" 

1320 RETURN 


Comentário 


Uma implementação interessante nesse pro- 
grama e marcar o tempo dentro ou fora do programa 
ou ainda marcar quantas tentativas você fez para 


salvar Sacha Certeiro e seus amigos... 


Porêm uma grande modificação para esse 
programa ê& usar variaveis coletivas alfanuméricas 
e com isto diminuir em muito o trabalho de digita 


ção. 


Acompanhe agora uma versao do mesmo pro- 
grama. 


19 CLEAR 

15 PRINT PASSARA RRXARAA HAS! 
20 PRINT “*O SAFARI PERDIDO*'! 
25 PRINT "*AJUDEÚISACHAÕE. ..*" 


34 PRINT ax A RAM RIAA Seed de 


35 DIM A$ (SJII) e» número de animais 
Ed E al » 
[O — numero maximo de caracte- 


Tes 
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[E a 


37 DIM P$ (8,8) número máximo de caracteres 


hG FORI =1TOS9 número de países 


56 INPUT AS(T) 

64 NEXT I 

76 FOR K =1 TOS 

80 INPUT P$ (K) não esqueça que X$ 
90 NEXT K tem 11 caracteres 


106 LET N = INT(9*RND) + 1 — E 
nao esqueça que Yi 

116 LET M = INT(8*RND) + 1 tem 8 caracteres 

120 LET X$ = A$ (N) 4 

130 LET Y$ = P$ (M) 

146 PRINT 


156 PRINT "O SAFARI ESTA PERDIDO EM ALGUM DOS SEGUINTES 
PAÍSES:" 

160 FOR IL = 1 TOB 

176 PRINT P$ (TI), 


180 NEXT I 

199 PRINT 

206 PRINT "PARA JOGAR APERTE UMA TECLA” 
210 LF INKEY$ =" THEN GOTO 216 


226 PRINT "O QUE ELES PODERÃO ESTAR CAÇANDO?" 

230 FOR J = 1 TO 9 

246 PRINT A$ (J), 

250 NEXT J MM l|atê 11 caracteres (por 

260 INPUT R$ exemplo ZEBRA OUODOODO) 
a sua entrada 

276 IF R$ = X$ THEN GOTO 366 

286 GOSUB 1000 

294 GOTO 226 

366 GOSUB 1300 

316 PRINT "AGORA ACHE EM QUE PAÍS ESTA O SAFARI” 

320 FOR L=1 TOB8 


336 PRINT P$ (L), 
348 NEXT L 


Não esqueça de preencher 
com espaços em branco 
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Não esqueça de preencher 
com espaços em bratfco 
atê 8 caracteres (por 
exemplo QUENIADIO) a sua 
entrada 






356 INPUT V$ 
360 IF V$ = Y$ THEN GOTO 396 
376 COSUB 1GHA 

384 COTO 316 

396 GOSUB 1360 

40) PRINT "AGORA VAMOS SE APRESSAR PARA SALVÁ-LOS" 

410 LET D = INT(RND*7 + 2) 

428 PRINT "QUANTOS DIAS VOCÊ ACHA QUE IRÁ LEVAR PARA 

SALVAR O SAFARI?" 
436 PRINT "VOCÊ DEVE PENSAR EM UM NÚMERO INTEIRO ENTRE 
2 E 8 (DIAS)" 

446 INPUT D1 

456 IF DI = D THEN GOTO 499 

460 GOSUB 10GG 

470 PRINT "TENTE OUTRO NÚMERO" 

48) GOTO 436 

494 GOSUB 1366 

500 PRINT "VOCÊ É UM HEROI E SALVOU SACHA ED"; 

510 PRINT "O SAFARI QUE ESTAVA CAÇANDO O"; x$;"D"; 
526 PRINT "NA AFRICA NO PAÍS CHAMADO O"; Y$:"0"; 

536 PRINT "REALIZANDO A PROEZA EMO"; Ds. "ODIAS" 

540) STOP 

1004 CLS 

1016 PRINT "ERRADO, TENTE NOVAMENTE" 

1626 RETURN 

1306 CLS 

1316 PRINT "CORRETO" 
1326 RETURN 











14. REMOVENDO 





N 


SG 
by: 
q 
4 


As vezes um professor usa a têcnica de 








aprendizado que consiste em preencher os espaços 
em branco com palavras que tornem lógico o sentido 
de um paragrafo. 

Esse programa automatiza o processo de re 


mover palavras. 


Ai vai ele... 


10 LETK=1 

26 PRINT "DE QUANTAS EM QUANTAS PALAVRAS VOCÊ"; 
25 PRINT "(QUER RETIRAR UMA?" 

36 INPUT N 

49 PRINT “ENTRE COM UM PARÁGRAFO” 

56 INPUT P$ 

66 CLS 

76 FOR J = 1 TO LEN P$ 

89 IF P$(J) <> "O" THEN GOTO 100 

9] LET K = K+1 

100 IF K>N THEN LET K = 1 

116 IF K<N OR P$(J) = "O" THEN GOTO 136 
128 LET P$(J) = "2" 

138 NEXT J 


146 PRINT P$ 
156 STOP 
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Coeentârios sobre o programa "REMOVENDO" 


A entrada de dados & evidente mas deve-se 
destacar que como a variável STRING P$ (linha 56) 
não & dimensionada, o seu parágrafo pode ser bem 
longo... 

Na instrução 8) o seu TK-85 aprende a pro 
curar espaços em branco no seu parãâgrafo. 

Cada vez que ele encontra um espaço em 
branco, o programa sabe que "passou" por uma pala 
vra e ao contador de palavras K & acrescido o va- 
lor 1. 

Quando o valor da variavel K atingir o va 
lor de N o programa procura a proxima letra e subs 
titui a mesma com um ponto de interrogação. 

O programa continua substituindo letras 
com pontos de interrogação atê que encontre um no- 
vo espaço em branco o qual indica o fim de uma pa- 
lavra. 

Quando na instrução de número de linha 84 
encontra-se novamente um espaço em branco K E au- 
mentado outra vez de 1. 

Na instrução de numero de linha 196 quan- 
do K (contador de palavras) & maior que N (remova 
a palavra) restabelece-se o valor de K para 1 ou- 
tra vez, pois com isso impoe-se que a contagem de 
palavras vai começar de novo. 

Na instrução 116 caso K seja menor que JN 
pula-se imediatamente para a linha 136. 

É evidente que a linha 126 sera tambêm 
saltada desde que ocorra P$(J) = "O" (salto incon 
dicional devido ao GOTO). 

O operador lógico OR É necessário para le 


var em conta os duplos espaços em branco. 
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Caso não houvesse este OR o segundo espa- 
ço em branco (se existisse) seria sempre substi- 
tuido por um ponto de interrogação. 

Teste esse programa para as seguintes fra 


ses: 


P$ = "sEOvocEOQUERO SER OFELIZ,O FUJADADOTODOOOASsUNTOO 
OvÃoO que ONÃoO cLAREIE OA OCcaBEÇA, O NEMO AJUDEO 
AOOOCORAÇÃO" 


Faça N = 3 


Depois disso aplique para a frase: 


P$ = "vocÊ ONÃO O É OoBRIGADOOD AD ACREDITAR DEMÔMIM.C) 
AFINAL ODE OcontAs DoO que O você ODEVE O MEsMOO) 
ACREDITAR ODE ONADDEXPERIÊNCIA" 

Faça N = 4 

Para finalizar aplique isto à 32 Lei de Newton. 

P$ = "SE DUAS O PARTÍCULAS O INTERAGEM, O AS FORÇAS ODE O) 


INTERAÇÃO OMEDIDASOO EMOOUM REFERENCIAL O INERCIALO) 
SÃO DIRETAMENTE DOPOSTAS" 


Faça N=5 


15. PALAVRAS 





Ai vai um programinha no qual serão combi 
nadas algumas palavras e você entrara com o sexo 
e o primeiro nome de alguma amiga ou amigo e o seu 


TK-85 ira caracteriza-lo. 


É claro que as vezes poderão sair frases 
sem muito sentido, mas frequentemente o seu TK-85 
conseguira qualificar de forma correta o seu "fre- 
gues", 

No caso em que o seu TK-85 acertar por fa 
vor não permita que a dita ou o dito cujo quebre 


o "magistral previsor" TK-85, 


Nas variaveis coletivas STRING M$( ) e 
A$( ) guardamos os nomes masculinos e nas variã- 
veis alfabéêticas coletivas F$( ) e B$( )Jguardam-se 


o$ nomes femininos. 


-- + am, 
À1l vai um grupo de palavras para você tor 


nar pratico o seu programa. 
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PORCA 
PERUA 
LEOA 
VÍBORA 
MACACA 
VACA 
MINHOCA 
CALOURA 
MULA 
CADELA 

TRAIÇÃO 
ARANHA 
PANTERA 


PORCO 
| PERU 
LEÃO 
SAPO 
MACACO 
TOURO 
VERME 
RECRUTA 
BURRO 
CÃO 
PECADO 
ESCORPIÃO 
TIGRE 


TRAIÇOEIRO 
GORDO 

PÁLIDO 
FEIO 
VENENOSO 
DESALINHADO 
BRONCO 
FRACO 
SUJO 
AGRESSIVO 
APAGADO 
FALSO 
MALÍGNO 


TRAIÇOEIRA 
GORDA 
PÁLIDA 
FEIA - 
VENENOSA 
DESALINHADA 
BRONCA- 
RRACA 

SUJA 
AGRESSIVA 
APAGADA 
FALSA 
MALÍGNA 































































































































Tabela 4 


Aí vai o programinha: 


5 DIM M$(13,11) 

16 DIM F$(13,11) 

15 DIM A$(13,9) 

26 DIM B$(13,8) 

36 PRINT "ENTRE COM AS PALAVRAS" 

40 FOR I =1 TO 13 

56 INPUT M$C(I) 

68 INPUT F$(I) 

76 INPUT AS(I) 

88 INPUT B$(I) 

96 NEXT 1 

95 CLS 

106 PRINT "QUEM VOCÊ QUER DESCREVER?" 
116 INPUT N$ 

126 PRINT "ENTRE COM O SEXO DA PESSOA”; 
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125 PRINT "O1 = MASCO2 = FEM! 

136 INPUT C 

146 PAUSE 309 

15 CLS 

16) LET R = INT (13 * RND) + 1 

176 IF C = 2 THEN GOTO 216 

186 PRINT N$; "OEO"; M$(R); "OcoMo UMO"; AS(R) 
190 PRINT 

200 GOTO 230 


216 PRINT N$; "DEO"; F$(R);"O como Duma O"; B$(R) 
226 PRINT 


236 PRINT "QUER CONTINUAR A BRINCADEIRA O (S/N)?! 
235 INPUT X$ 


240 IF X$ = "9" THEN COTO 95 
25% STOP 


16. SOLETRANDO 





Por enquanto o seu TK-85 ainda nao fala. 


No programa que vamos analisar a seguir 
nos teremos palavras com algumas letras a menos 


que serao substitutdas por pontos de interrogação. 


O seu TK-85 escolhe aleatoriamente uma pa 
lavra das escritas e entao substitui as letras 
aleatoriamente escolhidas por pontos de interroga- 
ção. 

Por exemplo o seu TK-85 pode produzir a 
saida 

OT2MIS?O 
caso uma das palavras escolhidas seja OTIMISMO, 


Quem for usar o programa terã a impressao 
de um jogo pois serao dadas oportunidades para se 
acertar o que realmente deve acabar acontecendo de 
pois de algum tempo e quem acertar ou soletrar cer 
to tudo receberã no final uma “saída festiva" ao 


lado da quantidade de erros cometida. 


Ai vai o programa "SOLETRANDO” 
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1 SLOW 


o e aqui que vai se guardar o 
5 LET T = 10 a que você esta soletrando 


19 DIM c$(1Q - = 
, NL dimensao maxima para 16 palavras cada 


15 DIM A$(T,10)—T uma com no máximo 1f caracteres 
26 LET C = 2 |— aqui começam a contar as respostas 
36 PRINT “ENTRE COM AS PALAVRAS! 
46 FOR X =1 TOT 

56 INPUT A$(X) 


Caso você queira entrar 
com menos que T pala- 





x / vras basta apertar a te 
60 IF A$(X)< "A” THEN GOTO 9G cla [ NEWNLINE | e você 
70 PRINT A$(X) sai do LOOP. 

Voce sai do LOOP automa 

80 NEXT X ticamente quando X>T 
94 CLS 
106 PRINT "QUANTAS LETRAS VOCÊ QUER RETIRAR?" 
11% INPUT R 
126 CLS 


136 IF E+C> = 15 THEN GOTO 1060 —— = Parada do jogo 
146 LET L = INT(1 + RND*T) 
156 IF A$(L)< "A" THEN GOTO 146 
id a lhida para uma outra varia- 
176 FOR 1 = 1 TOR vel 
186 LET N = INT(I + RND*10) — —e— 
190 IF B$(N) <"A” THEN GOTO 186 

200 LET B$(N) = "2" 

210 NEXT I 

226 PRINT B$——— 
230 INPUT C$ 

246 PRINT C$ 
250 IF A$S(L) = C$ THEN GOTO 5JG 
260 PRINT "SINTO MUITO TENTE DE NOVO" 


270 INPUT C$ ai vai um “convite” para 


dê uma nova tentativa sem 
280 IF C$(1)<>"N" THEN GOTO 220 contar pontos negativos 
2990 LET E = E+ | 


e RD aqui estã um convite 
300 PRINT AS$(L); "(DE A PALAVRA CERTA" para voce se'render" 





escolha aleatoria da palavra 






transfere-se a palavra esco- 


















e aqui que serao reti- 
radas algumas letras 
da palavra B$ aleato- 
riamente escolhidas 






repete-se a palavra ja com "2" nas 
letras retiradas 





-" - “ a 
al val a sua advinhaçao 


desvio condicional 





para lhe dar os 
parabêns 
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316 LET AS(L) = "7" — 
326 PAUSE 200 
33] GOTO 126 


Esta & uma jogada “mitretosa" 
para não sair mais a mesma pa 
lavra. O '7' esta antes da le 
tra “A! no codigo ASCII. E 
Cuidado para não entrar em 






560 FOR 1 = 1 T03 LOOP "loucão" 
“510 LET A = INT(6+ RND'* 13) 
520 LET B = INT(1 + RND * 36) 


530 PRINT AT A,B; “*** VOCÊ É UM MONSTRO NO VERNACULO**A" 
540 PAUSE 77 

556 PRINT AT A,B; 

560 NEXT I 

57Ô LETC=C+1 

580 GOTO 126 

1006 PRINT "CORRETAS =D";C; "OO"; "ERRADAS =O"E 

1610 STOP 


Sugestão: 


Para você testar esse programa ai vão 16 


palavras de 16 letras cada uma 


OBEDIÊNCIA CONSOLADOR 
INQUISIÇÃO ATROPELADO 
GRAMATICAL BIBLIOTECA 
EXCOMUNHÃO ACOMETIDOS 
DISPONÍVEL POLITEISMO 
Depois de estar bem prático mude as li- 


nhas 5, 16, 15 para que se possa entrar com 13 pa 
lavras,cada uma com 13 caracteres e depois de acer 
tar isto mude para N palavras todas de comprimento 
M <15. 
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17. VERTENDO 


O.I. - Nesse programa não esqueça que só se computa 
a você um erro quando você desiste de uma palavra. 
Em caso contrário você poderã tentar quanto 
quiser. 
Quando você "desiste" de uma palavra como jã 


foi explicado ela & eliminada de um novo sorteio, 





Agora vejamos como podem ser usados os re 
cursos de-um micro para permitir que se obtenha a 
versao de uma palavra em português para uma outra 
lingua. 

No programa "VERTENDO" entra-se com o nú- 
mero do dia da semana e o seu TK-85 lhe perguntarã 
se você deseja a versão para o Inglês, Francês eu 
Espanhol. 

Não esqueça “de alimentar o seu TK-85 com 


os seguintes dados 


Dia da 
[3 [ oueres | TSeinendoy | Mererest | ierento | 
[5 [ Sétado | Sarurdoy | Seneas | abaão | 


Tabela 5 









ra 


5 PRINT "VERTENDO” 


7 PAUSE 77 


10 
13 


20 
25 
36 
4% 
E) 
66 
70 
8% 
96 
94 
95 
96 
97 
99 


CLS 
DIM P$(7,8) 


DIM I$(7,9) 

DIM F$(7,8) 

DIM S$(7,9) 

FOR J =1 TO7 

INPUT P$(J) 

INPUT I$(J) 

ENPUT F$(J) 

INPUT S$(J) 

NEXT J 

PRINT "ENTRE COM O NÚMERO DO DIA EM PORTUGUÊS" 
PRINT 

PRINT "1-SEGUNDA, 2-TERÇA, 3-QUARTA, 4-QUINTA,"; 
PRINT. "(J5-SEXTA, 6-SABADO, 7-DOMINGO" 

INPUT K 


190 PRINT "FAÇA A ESCOLHA DA LINGUA TECLANDO UM NÚMERO" 


116 
126 
134 
146 
156 
166 
176 
186 
200 
210 
300 
319 
tt 
50 
519 


PRINT "1-INGLÊS" 
PRINT "2-FRANCÊS" 
PRINT "3-ESPANHOL" 
INPUT N 

IF N 


1 THEN GOTO 209 

IF N = 2 THEN GOTO 30G 

IF N = 3 THEN GOTO 406 

IF N<>1 AND N<>2 AND N<>3 THEN COTO 146 
PRINT P$(K); "ODEO"; I$(K); "OEM INGLÊS" 
cotTo 5dp 

PRINT P$(K); "OEO”; F$(K); "DEM FRANCÊS" 
GOTO 5H 

PRINT P$(K); "OEO". ss(K); "OEM ESPANHOL” 
PRINT "VOCÊ QUER CONTINUAR COM AS PERGUNTAS (S/N)?" 
INPUT R$ 
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526 IF R$ = "S” THEN GOTO 94 
60B STOP 


Comentãrio: 


Você seria capaz de alterar um pouco o pro 
grama "VERTENDO" entrando com os meses em Inglês e 
obtendo a sua tradução para o Português, Espanhol, 
Alemão, Francês ou Italiano e nesse caso obtendo 
um novo programa que poderia ser chamado "TRADUZIN- 


DO" 


Maos a obra pois & um Otimo exercício. 


Dois - Estudar ingles e, ao mesmo tempo,conhecer 
a sistematica do micro sao os objetivos do excelen 
te artigo de Renato Degiovani - "Aprenda Ingles no 
computador" que aparece na Micro Sistemas N9 18 
(março/1983). 

É no fundo um programa jogo muito instru- 


tivo. 


18. “SLALOM” 





O esqui é um longo e estreito patim de ma 
deira de pouco mais de 2m de comprimento por cerca 
de 8 cm de largura, para deslizar sobre a neve. 

E nao vai ser muito fácil voce esquiar 
aqui no Brasil se bem que jã temos pistas artifi- 
cialmente mantidas no sul do pais. 

Hoje as competições de esquiadores consti 
tuem parte fundamental do programa dos Jogos Olim- 
picos de inverno. 

Essas competições dividem-se em três cate 
gorias: prova de velocidade em deslizamento livre 
encosta abaixo; prova de perícia e velocidade, 
com deslizamentos em ziguezagues por entre bandei- 


rolas (SLALOM) e as emocionantes provas de salto. 


O deslizamento em esquis pelo campo cru- 
zando atalhos & o que pratica a maioria das pes- 
soas que não aspiram participar em competições. 

É um esporte arriscado, em que se poem à 
prova a resistência, destreza e decisão do despor- 
tista. 

Como nao temos cao, digo inverno, rigoro- 
so esquiamos com o auxílio do TK-85 com a vantagem 


de nao se machucar nunca. 
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16 DIM C(9) ———— — ma Sugestão: Mude o 9 para 6eo7 
que aparece nas linhas 56, 66 e 


26 CLS E aé 146 para 14 e você terã um jogo 
30 FOR J = 1 TO 9 bem facil 


40 LET C(J) = INT(RND*1]) + 14 

56 PLOT J*7, C(J) - 1—— 

66 PLOT J*7, C(J) + 2 

76 NEXT J 

86 LET Y=C(1) 

9) FOR K = 3 TO 63 

100 IF K/7 = INT(K/7) THEN GOTO 86 + (36 AND Y> = C(K/7) AND 
Y<= C(K/7) + 1) 

116 PLOT K,Y 

120 LET X=Y 

136 LET Y = Y + (INKEY$ = 7") — (INKEY$ = "6") 

“146 UNPLOT K,X 

150 NEXT K 

155 PRINT AT 19,0; "PARABÉNS - VOCÊ CONSEGUIU” 

660 PRINT AT 20,0; "VOCÊ QUER OUTRA CORRIDA (S/N)?" 

176 INPUT R$ 

186 IF R$ = "'S" THEN GOTO 26 

185 STOP 











se você estiver muito "grossa" ou 
"atrapalhada" nao conseguindo 
"esquiar" aumente a abertura en- 
tre as bandeirolas fazendo 

56 PLOT J*7, C(J)-2 
Mas faça outras mudanças também!! 


Comentarios e sugestoes: 

Como você vê tem-se 8 aberturas na telado 
seu video, 

Você deve mexer apenas nas teclas "7" (mo 
vimento para cima) e na tecla "6" (movimento para 
baixo) e passar entre essas aberturas com o seu es- 
qui sem bater nas bandeirolas ou querer passar por 
“EOra as 

Caso isto ocorra começará tudo de novo atê 
que você termine o percurso quando inclusive você 


tem opçao de querer continuar a brincar ou nao!!! 


O.I. - Consulte a Microhobby Nº 6 de 1983 que você acharã um 
programa semelhante ao "SLALOM" 





No programa “RASTRO” você deve "ouiar"uma 


serpente ou víbora cuja cabeça é representada por 
um V, por entre blocos de pedra que se deslocam pa 
ra acima, 

A você serã dada uma contagem com um limi 
te máximo de até 13 choques nos blocos (extremo in 
cluido) após o que o deslizar da serpente por você 
guiada termina. 

Note que no início você tem apenas um go 
que seria a cabeça da serpente e com as teclas "5" 


e "8" você guiará a mesma entre os blocos de pe- 


dra. 
Aí vai o programa “RASTRO” 
1Ó LET P=6 
20 LET F=P 
30 LET B=P 
46 LET Cs=P 
50 LET D=P 
60 LET Y= 12 
7Ó LET A = INT(RND*4) + 16 
75 SCROLL 


98 


86 LET Y=T+(INKEY$ = "8" AND y< 13) 
= (INKEY$ = "5" AND Y>10) 


96 PRINT TAB A; "AO'; AT 18, Y; "y” 
100 IF D = Y THEN LET FP = p+1 
116 LET D 


u 





Nao esqueça que se a 







120 LET C€ = B expressao entre pa- 
130 LET B = pa for verda- 

eira produz-se um 
146 LET P = P+1 (1) e em caso contra 


150 IF F<= 13 THEN GOTO 76 Ee 


169 PRINT AT 18,10; "xx! 

165 PRINT AT 160,18; "CONTAGEM" 
170 PRINT AT 11,19; "FINAL" 
186 PRINT AT 12,21; P 

196 STOP 


20. HACHURANDO 





Não importa O quanto você foi bem sucedi- 
do até agora, o jogo que convencionamos chamar de 
VHACHURANDO" fara você fracassar muitas vezes. 

Se você & o tipo da pessoa que nunca "fe- 
cha os olhos" para um grande desafio comece a ter 
clar ja o programa “"HACHURANDO" porêm não diga de- 
pois que nao foi avisado. 

O propósito do jogo é "encher" uma moldu- 
ra de contorno preto com um hachurado todo espe- 
cial. 

O hachurado tem que ser completo. 

Com o intuito de controlar a direção do 
hachurado você pode usar as teclas "5", "6", "7"ou 
ser io 

Note que uma vez escolhida direção e sen- 
tido de movimento ele continua a menos que você 
aperte uma nova tecla. 

Você não pode, de forma alguma bater na 
moldura. . 

Para complicar um pouquinho mais o jogo 
existe um limite de tempo para você completar o 


hachurado. 
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10 PRINT AT 4,16;" GSBSBSBssssa" 
2) FOR J = 5 TO 13 

39 PRINT AT J,10; "D'" 

4) PRINT AT J,20; "OD" 

50 NEXT J 

66 PRINT AT 14,16;" Co DOGG OCS] " 
76 DIM D(9,9) 


80 LETL=1 
90 LET C = 5 
109 LET T = 6 —=— conta o tempo 


110 LET Z =2 

126 coro 906 | 

200 IF INKEY$<>"" THEN GOTO 240 

216 GOSUB 1004 | 

226 PAUSE 106 

246 LET Y$ = INKEY$ 

243 IF Y$ = "5" OR y$ = "6" OR Y$="7" OR Y$="8" THEN 
GOTO 256 

245 GOTO 206 

250 LET Z = VAL Y$ 

280 CoTO Z*1GQ 

500 LETLC=C-1 

516 IF C<1 THEN GOTO 1106 

526 GOTO 964 

606 LETL=L+1 

616 IF L>9 THEN GOTO 1109 

626 GOTO 996 

706 LETL=L-1 

716 IF L <1 THEN GOTO 1106 

726 GOTO 906 

80) LET C=C+1 

810 IF C>9 THEN GOTO 1166 

900 LET D(L,C) = 1 

910 PRINT ATL+4,C+ 10; "BP 
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917 GOSUB LADO 

920 IF INKEY$<>""THEN GOTO 266 
930 FOR X=1 TO) 

946 FOR Y=1 TO) 

95] IF D(X,Y) = É THEN GOTO Z*1LOG 


960 NEXT Y 

976 NEXT X 

seg panvr ar 25,05" PESESSS EEE 
999 STOP 


1000 LET T = T+I—— conta o tempo 

1610 IF T>150 THEN GOTO 1106 

1626 RETURN 

1106 IF T<156 THEN GOTO 1156 

1119 PRINT At 29,0; * REESEE - 
1126 GOTO 996 

1156 PRINT AT L+4, C+16; "BB" | 

1169 PRINT AT 29,6; O VOCÊ BATEU NA MOLDURA, p 

1176 GaTO 990 


Comentários sobre: o programa: 


a) Linhas 10-69: Desenha-se o contorno da moldura, 


b) Linhas 2060-245: Com essas instruções pode-se 
com as teclas que tem as flechas mudar a dire- 


ção da linha que vai hachurando. 


Nenhuma outra das teclas tem qualquer efeito so 


bre o programa. 


e) Linha 250: Qualquer tecla correta quevocê usar 
serã convertida em número devido a aplicação da 
função VAL e dessa forma dã para usar o GOTO 


calculado na linha 286, 
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d) Linhas 5900-920: É com o auxílio das instruções 
que estão nesse intervalo que dã para hachurar 


a parte interna da moldura. 


e) Linhas 9390-996: Verifica-se nessas linhas se a 


area estã totalmente hachurada. 


£) Linhas 1004-1120: Essas linhas estão ligadas 
ao limite de tempo para hachurar completamente 


a parte interna da moldura. 


g) Linhas 1610-1100: AZ vai a mensagem de que vo- 
cê bateu na moldura e aí o programa também ter- 


mina. 





O TK-85 & realmente uma maravilhosa fer” 
ramenta para desenhar as mais diversas figuras na 
tela. 

É importante que os dois programas abaixo 
você execute no modo rápido ou seja deve ser usado 
o comando FAST pois caso contrário o(a) preclaro(a) 
leitor(a) pode perder a paciência e não apreciar devidamen 


te a "lindeza" da saida: 


a) 5 FOR K = 5 TO 15 STEP 2.5 
16 FOR C = -PI TO PI STEP .62 
26 LET X = K * SIN(2*C)ACOS C 
30 LET Y = K 4 SIN(2*4C)*SIN € 
AO PLOT X + 36, Y+20 
45 FAST 
50 NEXT € 
60 NEXT K 
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b) 5 FOR K = 7 TO 21 STEP 3.5 


19 
26 
36 
ap 
45 
5g 
64 


FOR C = -PI TO PI STEP .02 
LET X = K x. SIN(2*C)*COS C-2 
LET Y = K*SIN(2*C)*SIN C + 2 
PLOT X+30, Y+26 


FAST 
NEXT C 
NEXT K 


Qual das duas figuras você gostou mais? 





O 


22. GRÁFICO MALUCO 


O nosso filho Sergio é que fez o programa 


"GRÁFICO MALUCO" que realmente & muito doidao"... 


DS vazão a sua criatividade e faça coisas 


1. 


muito mais lindas... 


1 
19 
26 
39 
4 
41 
54 
68 
76 
71 
72 
73 
75 
78 
8% 
81 
82 
83 
84 


PRINT AT 1,10; " [eitaadooNbIShi do) " 


FOR F = 1 TO 39 
PLOT F, 36 

PLOT 36, F 

NEXT F 

FOR F = 1 TO 25 
PLOT PF, 25 

PLOT 25, F 

NEXT F 

FOR F = 1 TO 264 
PLOT F, 26 

PLOT 26, F 

NEXT F 

FOR F = 1 TO 15 
PLOT F, 15 

PLOT 15, F 

NEXT F 

FOR F = 1 TO 19 
PLOT F, 19 
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86 
96 
91 
92 
93 
94 
96 
97 
98 
99 
169 
181 
162 
163 
164 
106 
187 
168 
189 
116 
111 
126 
136 
131 
132 
134 
135 
137 
146 
141 
143 
144 
145 


PLOT 16,.F 

NEXT E 

FOR F=1 TOS 
PLOT F, 5 

PLOT 5, F 

NEXT F 

FOR F = 1 TO 27 
PLOT 27, F 
PLOT F, 27 

NEXT F 

FOR F =1 TO 28 
PLOT F, 28 

PLOT 28, E 

NEXT F 

FOR F = 1 TO 23 
PLOT F, 23 

PLOT 23, F 

NEXT F 

FOR PF =1 TO 22 
PLOT F, 22 
PLOT 22, F 

NEXT F 

FOR F = 1 TO 17 
PLOT F, 17 

PLOT 17, F 

NEKT P 

FOR F = 1 TO 18 
PLOT F, 18 

PLOT 18, F 

NEXT F 

FOR F = 1 TOl2 
PLOT F, 12 

PLOT 12, F 
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146 NEXT F 

147 FOR F = 1 TO 13 
148 PLOT F, 13 

149 PLOT 13, F 

156 NEXT F 

152 FOR F = 1 TO 7 
153 PLOT F, 7 

154 PLOT 7, F 

155 NEXT F 

156 FOR F = 1 TO 8 
157 PLOT F, 8 

158 PLOT 8, F 

159 NEXT F 


O.I. - Como vê a cara leitora e o estimado leitor 
não é proibido ter número de linha de um (1) em um 
porêm convém nao abusar desse sistema pois corre- 
se q risco de ter que apagar grandes trechos do 


programa, quando nao tódo ele!?!!? 


23. ANDRÓIDE 





Desenhar no TK-B5 nao & uma atividade quai 
quer, 

Precisa de paciência, de imaginação, de 
criatividade. 

Diz muito bem Renato Degiovani no seu exce 
lente artigo “Arte e têcnica na tela do computador" 
que saiu no Micro Sistemas de dezembro de 1983 "que 
o desenho, ou a ilustração, & antes de mais nada 


uma questao cultural e de formação intelectual". 


Se por um lado a sociedade em certas re 
gives, impoe padroes éticos e morais que inibem o 
desenvolvimento dessa arte ainda nos primeiros anos 
das pessoas, tambêm precisa ser ressaltado que a 
condiçao de poder se expressar atraves de figuras 
pode ser aprendida pois nao depende exclusivamente, 
de uma predisposição natural ou aquilo que chamam 
de dom. 

O nosso filho Sergio adorou o artigo de Re 
nato Degiovani e elaborou um programinha com uma 


pequena animação. 
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A você, recomendo que de alguma forma ad- 
quira a Micro Sistemas de dezembro/1983 e então 
baseando-se nesse programa podera fazer muitos ou- 
tros lindos desenhos. 

Com isto, de uma forma ou outra estarã se 
revelando a sua sensibilidade e que esta bem den- 


tro do seu Íntimo. 


Ai vai o programinha: 





RS ADEREM By SERGIO MIRSHAWKA - ANDRÓIDE 


16 PRINT ATI, 1; "Lula " 

20 PRINT AT 2, 1; (Ba 

30 pRINTAT 3,1; "MD 

ag PRINT AT é, 1; "MMA 

56 PRINT ATOS, 6; "CDC " 
66 pRINT AT 6, 0; "(MGDMICM]" 
7% PRINT AT 7,1; "CBOROCOIO 
so prRINT AT S, 6; "(HDD " 


, 
85 FOR C=1 TOl6 & uma pausa durante a 
86 NEXT Cc qual muda uma parte 


do desenho sem haver 
94 PRINT AT À, 1; "ao!" "balanço'na tela 
93 FOR C=1 TO 28 


94 NEXT C 
106 PRINT AT 1, 1; "Cala" 
1$3 FOR C = 1 TO 
104 NEXT C 
110 PRINT ATI, 1; «Or 
113 FOR C = 1 TO 
114 NEXT C 
120 PRINT ATI, 1; "Cala " 
123 FORC=1 TO29 
124 NEXT C 
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136 pRINT AT 3,1; "BAD 

135 FOR C=1 TO 20 

136 NEXT C ? 

146 prINT 473,1; "EO 

160 pRINT AT 6, 6; "MDCBMBCBG] " 
163 FOR C=1 TO 26 

165 NEXT C 


196 PRINT AT 6, 6; "(1200)" 
260 prINT AT 5,0; " BD “ 


216 Goto 16 


24. MOSAICO ALEATÓRIO 


Un 


N 
ZOO 39 
à 
ao 






Uma das coisas que lhe darã mais prazer Te 
verenciada leitora ou respeitado leitor & conseguir 
após teclar um programa, analisa-lo, entendée-lo e 
eventualmente modificã-lo obtendo com isto muito en 
sinamento na arte de dominar o seu TK-85 via lin- 


guagem BASIC. 


Tecle o programa “MOSAICO ALEATÓRIO” e exe 
cute-o no modo SLOW tendo muita paciência até que 


apareça o desenho todo. 


1 RAND 

LÓ LET A = INT(RND*4) — 2 
20 LET B = INT(RND*4) — 2 
30 LET X = INT(RND*42) 

46 LET Y = INT(RND*42) 


56 PLOT X + 18, Y 

60 PLOT 5S2-X, 41-Y 

76 PLOT 52 -Y, 41 - X 

80 LET Y=YT+B 

9 LET X=X+A 

106 IF X<Q THEN LET K=6 


uy 
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116 IF Y<f6 THEN LET Y=6 
120 IF X>41 THEN LET X = 41 
136 IF Y>41 THEN LET Y = 41 


140 IF X = 6 OR X = 41 THEN LET À = “À 
150 IF Y = 6 OR Y = 41 THEN LET B = -B 
169 GOTO 58 


Comentario: 


Tente agora mudar um pouco esse 


progra- 


25. CONTROLANDO 





É muito importante ter um relatório ante- 
cipado dos nossos gastos ao longo do mês desde que 
a gente advinhar como vão subir os preços. 

Esse programa & muito flexivel e pode ser 
expandido para qualquer tipo de orçamento. 

Algumas contas você pode pagar de 2 em 2 
meses (depósitos devidos da casa própria), outras 
por mes (contas de luz, água, gas, etc.), outras 
diariamente (leite, pao, etc.), outra por semana 


(combustivel, alimentação) etc. 


No programa "CONTROLANDO" todas as "ex- 
pressoes" de gasto serao convertidas para a base 
mes. 

O segredo desse programa estã em entender 
a função VAL. 

Com o VAL pode-se calcular o valor de um 
STRING. | 

No conjunto alfabético F$( ) sao guarda- 
das as fórmulas para converter os numeros que en- 


tram em seus equivalentes mensais. 


Por exemplo na linha 11$ temos F$(5) = 


"G(J)/2" e G(J) & o gasto no Item J, nesse caso 
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pagamento da divida da casa própria que & de dois 
em dois meses. 

Portanto tem-se um gasto bimensal e por 
isso ele aparece dividido por dois. 

Ja na linha 136 temos F$(6) = "4.3%6(3)" 
e G(J) que E um gasto semanal em "OUTRAS (DESPE- 
SAS)" & multiplicado por 4.3 pois o mês tem apro- 
ximadamente 4.3 semanas, 

Ja na linha 7Ó temos um gasto diário 
F$(3) e por isso multiplicamos F$(3) por 36. 

Com VAL F$(J) obtemos o valor de G(J) na 
base mensal, 

O uso da funçao VAL, de variáveis coleti- 


vas e laços FOR-NEXT torna os programas bem mais 
curtos, 


16 DIM G(6) 

15 DIM P$(6,16) 

26 DIM F$(6,8) 

25 LET P$(1) = "ROUPAS" 

36 LET F$(1) = "6(J)" 

40 LET P$(2) = "ALIMENTOS" 
SÓ LET F$(2) = "4.3 * G(J)" 
60 LET P$(3) = "LEITE/PÃO" 
76 LET F$(3) = "36 * G(J)" 
86 LET P$(4) = "COMBUSTÍVEL" 
90 LET F$(4) = "4,3 * G(J)" 
100 LET P$(5) = "CASA PRÓPRIA" 


110 LET F$(5) = "6(J)/2" 
120 LET P$(6) = "OUTRAS (DESPESAS)" 
136 LET F$(6) = "4,3 * 6(D" 


140 PRINT "A SUA RENDA MENSAL É:" 
154 INPUT R 


160 PRINT "RS"; R 117 
17) FOR J = 1 TO 6 

186 PRINT P$(J) 

196 INPUT G(J) 

206 PAUSE 55 

216 CLS 

220 LET G(J) = VAL F$(]) 

230 LET R = R -— 6(J) 


244 NEXT J 

250 FOR J = 1 TO 6 

26) PRINT P$(1);" = "56(J); "Qu.M. /MÊS" 
270 NEXT J 

280 IF R <-9.01 THEN GOTO 326 

285 LET R = INT ABS R 

296 IF R = THENGCOTO 346 


306 PRINT "SOBRARAM AINDA: ()";R;"OU.M." 

316 STOP 

320 PRINT "VOCÊ ESTÁ A PERIGO. FICOU D"; 

325 PRINT "DEVENDO O"; ABS R; "OU.M NESSE MES” 

336 Goto 316 

34) PRINT "UFA, UFA, DEU EM CIMA MAS VOCÊ NÃO TEM UM 
TOSTÃO SEQUER PARA COMPRAR UM PIRULITO" 

359 GOTO 310 


Comentario: 
Teste o seu programa para os seguintes da 
dos numéricos. 


INTERVALO DE TEMPO 
PARA OQ PAGAMENTO 
OU COMPRA 


ROUPAS 160006 MENSAL 


ALIMENTOS 87006 SEMANAL 
LEITE/PÃO 946 DIÁRIO 
COMBUSTÍVEL 27006 SEMANAL 
CASA PRÓPRIA 5sgada BIMENSAL 
OUTRAS (DES- 

PESAS) 113006 SEMANAL 





Tabela 6 
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Serã que o seu gasto mensal & de 1394300? 


Se o rendimento R for de 1562069 sobram 
ainda 167.706 u.m. no fim do mês? 


Tente e veja se dã istol!i 


O.I. - Um programa bem completo e ja pronto para o 
seu TK sobre o controle de despesa mensal aparece 
na Micro Sistemas Nº 21 (junho/1983) e como não po 


deria deixar de ser & de autoria de Renato Degiova 


ns 

Parabêns ao Renato por tanta colaboração aos 
"computamaníacos" e aos que não são mas logo se- 
TAGS é 


26. DIETA 





O método analítico que mais se utiliza ho 
je em dia para o cálculo dos alimentos necessários 
e adequados que devem ser ingeridos diariamente sem 
que com isso se provoque a indesejável "engorda" & 


a técnica da Programação Linear. 


A necessidade semanal de um individuo de 
nutrientes em gramas pode ser resumida da seguinte 


forma 


Proteina— ao menos 500 
Carbohidratos —-— ao menos 1860 


Gorduras — ao menos 404 


A questão ê&: em que quantidades e entre 
que alimentos devem ser distribuidos esses nutri- 
entes? 

É Gbvio que para uma família frugal ou pa 
ra os negócios ou ainda para a condição geral da 
nação o preço de cada alimento & um fator muito 
importante e deve ser levado em conta. 

Assim a pergunta que normalmente se faz & 
a seguinte: “quanto deve uma família comprar de ca 
da alimento para satisfazer a dieta adequada e is- 


to ao menor preço possivel? 
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Para um programa elementar no seu dieteti 
co TK-85 vamos adotar os alimentos indicados na Ta 
bela 7 onde os preços estao em u.m. (unidades mo- 


netarias). 


Alimento E Eeço 
(u.m.) 
1 pacote de carne moida 
(hamburger) de 500 g (H) 
1 lata de atum de 
300 g (A) 













1 saco de batatas de 
2,9 kg 


1 pote de manteiga de 
920 g 173 


(M) 
1 litro de leite (L) 


Tabela 7 


Por sua vez para cada alimento da Tabela 7 


temos as seguintes gramas de nutrientes, 


Gramas de nutrientes 
Alimento Proteina 
(N1) 


Carne moida (500 g) H E ug 
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E 

Batatas (2,5 kg) 
Manteiga (926 pg) 
Leite (12) 


Tabela 8 





Bem e aí vai o programa que nos permitira 
saber o que devemos comprar baseando-se apenas nes 
ses nutrientes e com isto estamos abrindo o cami- 
nho para que mais tarde você inclua vitaminas, mi- 


nerais e uma lista muito maior de alimentos, 
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Vamos também adotar algumas restrições 
tais como: carne moída no maximo 5 pacotes, latas 
de atum no máximo 3, sacos de batata no maximo 5, 
potes de manteiga no maximo 3 e litros de leite no 
maximo 8. 

É evidente que pode-se não comprar nada 
de um dado alimento e a primeira vista parece que 
estamos arranjando o cardápio para alguma solitã- 
ria ou alguêm que vive sozinho e se alimenta de 
“sandwiches". 

A restrição econômica & a de não se gas- 


tar em hipótese nenhuma mais que 20060 u.m./pessoa X 


semana. 
1) LET C=fQ 
2) LET V = 2006 


30 PRINT "AGORA O SEU TK-85 VAI FAZER MUITOS CÁLCULOS. 
SEJA PACIENTE QUE VAI VALER A PENA” 








126 FOR H = | TO 5 

136 FOR A = 6 TO 3 

140 FOR B = É TO 5 

159 FOR M = É TO 3 

160 FOR L = & To 8 

170 LET N1l = 1144H + B5%A + 47*B + 129%M + 34*L-— Proteina 

186 LET N2 = 540*B + 99*M + 5*L Carbohidrato 

190 LET N3 = 93%H + 24%A + 280%M + 42% Gordura 

206 LF (NL >= 500) AND (N2 >= 1866) AND (N3 >= 404) THEN 
COTO 210 

205 GOTO 290 

216 LET C=C+1 

226 LET G = 142%H +197%A + 107*B + 173*4M +» 67*L 


230 IF G> 
246 LET V 


V. THEN GOTO 235 - 
este e o 
G gasto 
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256 LET H1 
260 LET Al 
270 LET B1 
275 LET MI 
280 LET L1 
285 REM ESSA COMBINAÇÃO É INVIÁVEL 

290 NEXT L 

300 NEXT M 

316 NEXT B 

326 NEXT A 

330 NEXT H 

340 PRINT 

350 FOR 1 = 1 TO 32 

366 PRINT "$"; 

376 NEXT I 

380 PRINT "EXISTEMO"; C; " DESCOLHAS POSSÍVEIS” 
399 PRINT 

AMO PRINT "A ESCOLHA MAIS BARATA CUSTARÃ:"; V 
416 PRINT 

420 PRINT "COMPRE ENTÃO:" 

430 PRINT H1; "CJPACOTE(S) DE CARNE MOIDA" 

446 PRINT AL; "OLATA (5) DE ATUM” 

450 PRINT Bl; "OJSACO(S) DE BATATA” 

466 PRINT Ml; "OPOTE(S) DE MANTEIGA" 

476 PRINT LL; “(ODLITRO(S) DE LEITE” 

48] STOP 


y 
sm» ma 


Comentario: 


O programa “DIETA” ilustra bem como um pro 
grama de micro pode ser util para uma dona de casa 
eliminando-se os calculos demorados. Nesse exemplo 
temos 5184 soluções possiveis porem "apenas" 2126 
viáveis. Se colocássemos uns 15 alimentos deveria 
mos analisar provavelmente mais de 1000000PÁ de ca- 
sos e isto sem dúvida ê trabalho para micro. 


27. MEDIDAS 





Quem não lembra o quanto o nosso idoso pro 
fessor de Física nos procurou doutrinar com a im- 
portância e o uso correto das unidades de medida. 

Aliãs atê nas receitas elas são importan 
tes apesar de que em certas situações o mestre .de 
Física as acharia estranhas e inconvenientes, para 


nao dizer erradas... 


O que vem a ser uma xicara (são todas 


iguais) O que vem a ser uma colher de sopa ou uma 


colher de cha? 


Todos colocam a mesma quantidade em uma 
xicara ou em uma colher? 
O melhor e sempre em gramas!i: 


Você jã leu uma receita em alemao cara 
leitora? 


Bem o nosso TK-85 "o grande cozinheiro” 
nos permite efetuar as conversões de uma para ou- 
tra medida e principalmente passar a gramas atra- 
vês do uso de uma balança de precisão com o que se 
obtêm os diversos pesos dos vários ingredientes de 
forma precisa e quem sabe levando a exaltação e a 


euforia qualquer professor de Física. 
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LG PRINT AT 20,2; "**%A RECEITA EXATARHAO 

2) PAUSE 56 

36 FOR J = 1 TO 26 

46 SCROLL 

58 NEXT J 

66 CLS 

7) PRINT "QUAL É O NÚMERO DE PORÇÕES DA RECEITA ORIGINAL?” 

86 INPUT S 

90 PRINT "QUAL É O NÚMERO DE PORÇÕES QUE VOCÊ QUER?" 

106 INPUT N 

116 LET N = N/S 

136 CLS 

135 PRINT “AQUI ENTRAM AS QUANTIDADES NECESSÁRIAS O"; 

146 PRINT"PARA A RECEITA NA MEDIDA ANTIGA PARA CADA INGRE- 
DIENTE:" 

156 INPUT Q 

166 PRINT “UNIDADES:” 

176 INPUT Q$ 

189 CLS 

196 IF O$<> "XICA" AND Q$<> "SOPA" AND Q$<> “CHA” AND 
Q$<> "RAM" THEN GOTO 170 

200 IF Q$ = "XICA! THEN LET Q = Q%48 

216 IF Q$ = "GRAM" THEN LET Q = Q*9.21 

226 IF Q$ = "SOPA" THEN LET Q = Q23 

230 LET Q = Q*N 

246 PRINT INT(100*0)/100; " (COLHERES DE CHA” 

250 PRINT INT(10040/3)/106; "(JCOLHERES DE SOPA” 

260 PRINT INT(100*0/48)/100; "C)XICARAS” 

276 PRINT INT(476*0)/100; "CIGRAMAS" 

280 PRINT AT 20,3; "VOCÊ VAI ENTRAR COM MAIS DADOS?” 

290 INPUT R$ 

360 IF R$ = "SIM" THEN GOTO 136 

316 STOP 
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Comentários: 
Nesse programa para facilitar as coisas 
todas as quantidades são convertidas para colhe- 


res de chã antes de serem processadas (linhas 209- 
226). 

Pela mesma razao ou seja para dar uma vi- 
são global e simples a nova quantidade & impressa 
nas quatro unidades inclusive naquela que entrou. 

Cabe a você escolher aquela que gostamais 
ou que seja mais pratica aplicar na receita ou na 


sua forma de cozinhar. 


Ao se teclar XICA a variável Q$ terã o 
valor XICA e se você escrever agora CHICARA ou mes 
mo XICARA que apesar de serem a mesma coisa, verã 
que o seu TK-85 nao conhece o Pequeno (Grande) Di- 
cionário Brasileiro da Língua Portuguesa e ira per 


guntar pelo único nome que conhece e nos usamos 


a abreviatura XICA. 


O mesmo foi feito para colher de sopa com 
a palavra “SOPA”, para colher de chã com a palavra 
“CHA” e para grama com a abreviatura GRAM, 

Cuidado pois com o qué entrar na linha 
176 pois não serã entendido na linha 199 e você fi 
carã em um LOOP filológico. 

Finalmente, nem nos e nem o progessor de 


Física gostaria da seguinte medida 


"coloque 7.35683549 colheres de chã 

de açúcar" 
e é por isso que utilizamos a precisao atê 2 casas 
decimais (linhas 2460-276). 
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Teste o seu programinha para um trecho de 
uma receita para fazer uma "galinhada' que dã para 


5 pessoas. 


GALINHADA 


1,5 kg de pedaços de galinha —s» Transformar es- 
sa unidade (kg) 

em colheres de 

cha ê dose, mas 

aqui vale tudo? 


4 colheres de sopa de óleo 


1 colher de sopa de salsa Essas unidades se- 
picadinha rao transformadas 
entre outras coi- 
sas em colheres de 

chã e gramas 


4 xícaras de arroz limpo e 
lavado 


etc. 


O.I. - Receitas da vovô, digo do Tk-85 


Mel com limao 





a) Resfriado 





Folha de abacate com casca de 
maça 


b) Dor nos rins 


e) Tosse, bronquite, rouquidão —— Mel e agrião 


dg) Os netinhos fazem pipi na cama —— Cha de folha 
de pitanga 
e) Insônia ——-— Chã de alface antes de deitar 


Cha de erva cidreira, do 


quintal claroi.: 


£) Sistema nervoso 





g) Tristeza no coração —— Deite-se no colo da vo 
vô e adormeça, embalan 
do-se na cadeira de ba 
lanço! ?: 


28. CUSTO DE UMA 
RECEITA 





Esse programa calcula o custo de uma tor- 


ta e o custo de uma porção da mesma, 


Para cada ingrediente & fornecido o custo 
unitário, a quantidade comprada, a quantidade usa- 
da na receita e o numero de unidades de receita 
por unidade comprada. 


Como exemplo para a cara leitora ou caro 
amigo,elaboramos um programa para uma pequena tor- 


ta de morangos, que sera servida em 1f porções. 
Qual seria o custo da torta e o custo de 
uma porção. 


Qual e o custo da porção se servirmos 15 
pessoas com a torta preparada? 


Utilize para o teste do Programa a seguin 
te receita assim como os respectivos fatores de 


conversao e os preços por ingrediente. 
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Receita de uma torta de morangos que 
permite obter 19 generosas porções 


F d ans, Alimento(com 
ator de conversão ade aah 
5 xIcaras/kg 300 /kg 
6,53 colheres de 
, a 2 
chã/s 50/10Gg 


4 xicaras/kg 14060/5 kg 
4 xicaras/kg 1506/kg 


214 colheres de 136/kg 
cha/kg 
6) 1 ovo 12/duzia 350/dúzia 


om 
199B/caixa 


2000/litro 






Quantidade necessã 
ria (ingrediente) 








1) 3 xícaras de 
farinha de 
trigo 










2) 3 É colheres de 






cha de fermen- 
to em pô 







1 e 
> xicara de 
açucar 








4) 1 xícara de 
manteiga 













53.1 & colher de 


chã de sal 













7) ê xicara de S xicaras/litro 


leite 







2 caixas peque- 
nas de morangos 








9) z litro de creme 
de leite bati- 
do 


Tabela 9 
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5 LETG=6 

16 PRINT “CUSTO DE UMA RECEITA" 

26 PRINT 

30 PRINT "NÚMERO DE INGREDIENTES” 

46 INPUT N 

56 FOR J =1 TON 

55 PRINT 

66 PRINT "INGREDIENTE O"; J; "2" 

76 PRINT "CUSTO DO ALIMENTO VENDIDO NO COMERCIO:”; 

86 INPUT C 

85 PRINT C 

96 PRINT "NÚMERO DE UNIDADES DO ALIMENTO:"; 

95 INPUT U 

106 PRINT U 

116 PRINT "NÚMERO DE UNIDADES DA RECEITA PELAS UNIDADES 
EM QUE É VENDIDO O ALIMENTO: "; 

115 INPUT F 

126 PRINT F 

125 PRINT "NÚMERO DE UNIDADES NECESSÁRIAS NA RECEITA:"; 

136 INPUT R 

135 PRINT R 

144 LET G 

158 NEXT J 

155 PRINT 

160 PRINT 

170 PRINT "NÚMERO DE PORÇÕES" 

186 INPUT P 

196 PRINT P 

200 PRINT "O CUSTO TOTAL PARA A RECEITA É: 0"; 
INT(G*106 + .5)/106 ; "Ou.M." 

265 PRINT | 

216 PRINT "O CUSTO POR PORÇÃO SERVIDA É:()"; INT(G/P*19A 
+.5)/106 





G + C/U/P *R isto equivale a Era 


UxF 
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230 PRINT "VOCÊ QUER MUDAR O NÚMERO DE PORÇÕES (S/N)?" 
240 INPUT R$ 

256 IF R$ = "S” THEN GOTO 155 

266 STOP 


0.1.1 
Agora você estã apto a fazer o cálculo de qual- 
quer obra gastronomica que pretender realizar e nao esqueça 


que hã quem diga que se prende o(a) companheiro(a) pela bo- 


caçis 


O.I. 2 
Para você aplicar o programa no caso particular 


da torta de morango e com os nossos dados nao esqueça de ali 


mentar o seu TK-85 com os seguintes dados: 





Tabela 10 






Não esqueça que a famosa 
e inesquecível virgula 

decimal & o ponto deci- 
mal do seu BASIC.L: 






NATALINO 





O Natal renova as esperanças... 

Não existe uma pessoa que não tem uma boa 
lembrança do Natal!! 

Quem não poe no Natal uma esperança? 

A casa limpa, as luzes acesas, a mesa co- 
locada, a ceia pronta. 

À volta da ârvore toda enfeitada, ilumina 


da, os presentes. 


Vai começar a festa e E a hora certa, de 
mandar essa mensagem feita pelo Sergio ou seja o 


programa “NATALINO” atraves do seu TK-85. 


5 GOTO 299 
6 CLS 
16 FOR F = 40 TO 31 STEP -1 
26 PLOT 1, F 
36 NEXT F 
Aqui sai im- 31 FOR F = 2 TO 6 
Pa a le- 33 PLOT F, 40 
35 NEXT F 
36 FOR F = 2 TO 4 
38 PLOT F, 36 
40 NEXT F 
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Aqui sai im- 
pressa a le- 
tra E 


Aqui sai im- 
pressa a 1º 
letra L 


Aqui sai im- 
pressa a le- 
tra I 


Aqui sai im- 
pressa a le- 
tra 2 


Aqui sai im- 
pressa a le- 
tra N 


45 
46 
47 
48 
sq 
52 
53 
54 


55 
56 
57 
59 
66 
62 
63 
64 
65 
66 


67 
68 
76 
72 
73 
75 
76 
77 


80 
81 
82 
83 
84 
85 


FOR E = 16 TO 15 

PLOT E, 40 

PLOF E, 36 

PLOT E, 31 

NEXT E 

FOR E = 4 TO 31 STEP 
PLOT 16, E 

NEXT E 


! 
jest 


I 
pa 


FOR L = 44 TO 31 STEP 
PLOT 19, L 

NEXT L 

FOR L = 19 TO 25 
PLOT L, 31 
NEXT L 
PLOT 29,41 
FOR I = 39 TO 31 STEP 
PLOT 29, I 

NEXT I 


Esse é o "pingo" do 1 
1 





FOR Z = 33 TO 39 

PLOT 2, 46 

PLOT Z, 31 

NEXT Z 

FOR Z = 39 TO 33 STEP - 1 
PLOT 2, Z 

NEXT Z 

PLOT 33, 32 


FOR N = 16 TO 6 STEP - 1 
PLOT 2, N 

PLOT 9, N 

NEXT N 

PLOT 3, 15 

PLOT 4, 14 


Aqui sai im- 
pressa a 12 
letra A 


Aqui sai im- 
pressa a le- 
tra T 


Aqui sai im- 
pressa a 22 
letra A 


86 
E 
88 
89 
9g 
91 
92 
93 
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PLOT 5, 13 
PLOT 6, 12 
PLOT 6, 11 
PLOT 6, 19 
PLOT 6, 9 
PLOT 6, 
PLOT 7,7 
PLOT 8,6 


FOR A = 16 TO 6 STEP - 1 
PLOT 14, A 
PLOT 22, A 
NEXT A 


106 FOR A = lá TO 22 


165 
106 
167 
168 
199 
116 


111 
112 
113 
114 
124 
139 


PLOF A, 


PLOT A, 
NEXT A 


FOR T 
PLOT T, 
NEXT T 
FOR T = 


16 
16 


36 To 38 
16 


16 TO 6 STEP — 1 


PLOT 34, T 


NEXT T 


FOR A = 


16 TO 6 STEP - 1 


PLOT 43, A 
PLOT 51, A 


NEXT A 


FOR A = 
PLOT A, 


43 TO 51 
16 


14) PLOT A, 16 


95 
96 
97 
98 
161 
162 
163 
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NEXT. À 
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Aqui sai im- 
pressa a 22 
letra L 


Aqui sai a 
mensagem do 
seu TK 


Aqui sai o 
nome do au 
tor "pis- 
cando" 


154 FOR L = 16 TO 6 STEP —- 1 


151 
152 
153 
154 
155 
206 
299 


306 
318 
326 
333 


334 
345 
346 
347 
348 
349 





PLOT 55, L 

NEXT L 

FOR L = 55 TO 61 

PLOT L, 6 

NEXT L 

PAUSE 254 

CLS limpeza da tela 
PRINT "ESTAMOS NA VESPERA DO NATAL POR" 
PRINT "ISSO DESEJO A TODOS UM FELIZ NA-" 
PRINT "TAL E PRÓSPERO ANO NOVO - a 
FOR S =1 TO 30 

PRINT AT 16, 10; "BY SERGIO" 

PRINT AT 10, 160; " » 

NEXT S 

PAUSE 200 

coTto 6 A volta ao início... 





30. RETIRANDO PALITOS 





Eis finalmente um jogo no qual toda a sua 
destrezãá e vitorias do passado em outros jogos no 
TK-85 não servem para nada. 

Ágora, se você começar, ira perder sempre 
do seu TK-85. 

Tem-se inicialmente 21 palitos de fósforo 
e você (J) ou o seu TK-85 (M) retiram cada um e na 
sua vez de 1 a 3 palitos. 

O jogador que ficar com o último palito 
para retirar perde o jogo. 

Em contraste com os outros jogos nos quais 
você mais ganha do que perde do seu TK-85 (apresen 
tadas no livro TK-Lembrando), aqui se você £or opri 
meiro a jogar e escolher o grau de dificuldade é 
bau, bau, blau, blau e você perde... 
Um programa analogo aparece no interes- 
sante livro de Carlos Eduardo Rocha Salvato “Cole- 
ção de Programas vol. I” publicado pela Editora 
Moderna em conjunto com a Micromega e no livro do 
Delio S. Lima tambêm se encontra um programa seme 
lhante a esse. 

Mas ai vai o nosso com um aspecto visual 
bem interessante nas mensagens de vitória que apa- 


recem na tela. 
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16 RAND 

20 LET N = 21 

38 SCROLL 

35 SCROLL 

46 PRINT "GRAU DE DIFICULDADE? 1,2,3,4"; 
45 INPUT D 

56 IF(D<1) OR (D>4) THEN GOTO 45 
55 PRINT "OD ="; D 

58 GOSUB 1606 

66 SCROLL 

65 SCROLL 


76 PRINT “QUEM COMEÇA VOCÊ(J) OU EU (M)2";. 
86 INPUT A$ 

85 PRINT A$ 

88 GOSUB 1OHA 

96 IF A$ = "M' THEN GOTO 214 

106 CLS 

113 PAUSE 206 

125 PRINT 

136 PRINT "QUANTOS PALITOS VAI TIRAR SEU 'HUMANOIDE'?" 
135 INPUT P 

14) IF P<1 OR P>3 THEN GOTO 135 

145 PRINT P 

159 FOR I = 1 TOP 

160 IE N = É THEN GOTO 385 

176 LETN=N-1 

186 NEXT I 

196 PRINT "RESTAM AGORA O"; N; "OPALITOS" 
195 FOR L = 1 TON 

206 PRINT "O"; 

265 NEXT L 

2160 PAUSE 109 

214 CLS 


215 PRINT "É A MINHA VEZ E SOU A SUPER-MÁQUINA” 

217 PRINT "EXISTEMO"; N; "(PALITOS NO MOMENTO." 

226 IF (N=21) OR (N=17) OR (N= 13) OR (N = 9) OR 
(N = 5) OR (N = 1) THEN GOTO 280 

225 LET T=4-P 

23] IF D = 4 THEN GOTO 256 

235 IF D = 3 THEN GOTO 255 

246 IF D = 2 THEN GOTO 269 

245 GOTO 265 

254 IF (N<17) AND (N>13) THEN LET T = N- 13 

255 IF (N<13) AND (N>9) THEN LET T=N-9 

260 IF (N<9) AND (N>5) THEN LET T=N-5 

265 IF (N<5) THEN LET T=N-1 

278 GOTO 299 

286 LET T = INT(RND*3) + 1 

285 IF F>N THEN LET T=1 

294 PRINT "EU TK-85 TIREIO"; T; "OPALITOS" 

295 FOR 1 =1 TOT 

366 IF N = É THEN GOTO 465 

3160 LETN=N-1 

320 NEXT 1 

336 IF N = 1 THEN GOTO 385 

340 EF N = É THEN GOTO 405 

345 PRINT "RESTAM AGORA ()"'; N; "O PALITOS" 

350 FOR K = 1 TON 

355 PRINT "OD"; 

360 NEXT K 

38] coTO 113 

385 PRINT "BD" 

396 PRINT "D" 

392 SCROLL 

395 PRINT "FICOU UM PALITO — EU TK-85 GANHEI" 
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500 GOTO 392 

495 SCROLL 

416 PRINT "GANHOU HUMANDIDE - PARABÉNS” 
426 GOTO 465 

1006 FOR J = 1 TO 24 

1616 SCROLL 

1620 NEXT J 

1630 RETURN 


3]. VIDA ESPERADA 





Este & um programa muito interessante pa- 
ra distrair as visitas num dia frio ou de chuva e 
quando a festa deveria ser no mínimo no jardim e 
ao ar livre se possivel!!! 

Alias com isto, além de se ter a vantagem 
de não se sujar a casa os convidados aproveitam pa 
ra respirar o ar puro, quando isto & possivel edes 
de que, você não more em algum apartamento minha 
cara(o) leitoraf(o)! 

Neste programa os muitos dados que serão 
fornecidos entram em forma codificada na variavel 
C que a maior parte das vezes tomara os valores 1 
É ss 

O programa é auto explicativo e se baseia 
em alguns cuidados que você deveria tomar com o 
fumo, com o excesso de peso, com a tensão,: com o 
seu rendimento, com o seu "status" intelectual,etc. 

Tecle logo o programa e veja se você tem 
muito pela frente para viver ou entao tome os devi 
dos cuidados para aumentar a sua idade (I) espera 
da de vida aqui neste lindo planeta. 

O seu TK-85 & infalível, mas o programa 


não é tão brilhante e pode ocorrer alguma distor- 
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ção entre a sua idade real e o que preve o seu TK- 
85 via este programa. 
Na realidade ele funciona muito bem para 


idade real até 65 anos. 


16 REM *ESPERANÇA DE VIDA* 

26 PRINT "CÁLCULO DA ESPERANÇA DE VIDA PARA MAIORES DE 
IDADE - 18 ANOS PARA FRENTE" 

30 FOR K = 1 TO 32 

35 PRINT "2"; 

49) NEXT K 

506 PRINT "TECLE (1) PARA SIM, (2) PARA NÃO, NAS PERGUNTAS 
A SEREM RESPONDIDAS" 

66 LET I = 76 

76 PRINT "VOCÊ É HOMEM?" 

75 INPUT C 

8$ IF C = 1 THEN GOTO 95 

85 LET I=I+ká 

9g coro 166 

95 LET I=1-3 

109 PRINT "VOCÊ VIVE EM UMA CIDADE COM MAIS DE UM MILHÃO 
DE HABITANTES?" 

163 INPUT C 

165 IF C = 1 THEN GOTO 120 

116 PRINT "VOCÊ VIVE EM UMA PEQUENA CIDADE DE MENOS DE 

20000 HABITANTES?" 

112 INPUT C 

115 IF C = 1 THEN GOTO 136 

117 GOTO 146 

12) LETI =1-2 

125 GOTO 14% 

130 LET IL =1I+2 


146 PRINT "CASO O SEU TRABALHO É ATRÁS DE UMA ESCRIVANINHA 
DIGITE (1)" 
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156 PRINT “CASO O SEU TRABALHO REQUER ESFORÇO FÍSICO 
DIGITE (2)" 

164 ENPUT C 

176 IF C = 1 THEN GOTO 190 

186 LET L=1+3 

185 GOTO 195 

190 LET IL =1I-3 

195 PRINT "VOCÊ FAZ EXERCÍCIOS FÍSICOS NO CLUBE OU EM 
CASA?" 

200 INPUT € 

285 IF C = 2 THEN GOTO 256 

215 PRINT "VOCÊ FAZ EXERCÍCIOS FÍSICOS VIOLENTOS (MAIS 
DO QUE 3H POR SESSÃO) E COM PELO MENOS 3 SESSÕES 
POR SEMANA?" 

226 PRINT "DIGITE (1) EM CASO POSITIVO E (2) EM CASO 
CONTRÁRIO" 

222 ENPUT C 

225 IF C = 1 THEN GOTO 240 

236 LET IL =1I+2 

235 GOTO 254 

240 LET I=I+4 

256 PRINT "VOCÊ VIVE COM UM(A) COMPANHEIRO(A) OU ESPOSO 
(A)?" 

252 INPUT C 

255 IF C = 1 THEN GOTO 294 

260 PRINT "QUANTAS DÉCADAS (D) VOCÊ VIVE SOLITÁRIO(A) 
DESDE OS 18 ANOS?" 

265 INPUT D 

27B LETI =I-D 

284 GOTO 306 

296 LETIL =1+5 

300 PRINT "VOCÊ DORME MAIS DE 9H POR DIA?" 

345 INPUT C 
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316 IF C = 2 THEN GOTO 326 

315 LETI =1I+1 

320 PRINT "CASO VOCÊ SEJA AGRESSIVO E FACILMENTE 
IRRITÁVEL TECLE (1)" 

330 PRINT "SE VOCÊ É "CUCA" FRESCA E SEMPRE RELAXADO DAS 
TENSÕES DIGITE (2)! 

335 INPUT € 

346 IF C 1 THEN GOTO 359 

345 IF C = 2 THEN COTO 360 

348 GOTO 365 

35P LET L= [-3 

355 GOTO 365 

360 LET I = 1 + 2 

365 PRINT "VOCÊ SE CONSIDERA UMA PESSOA FELIZ?" 

376 INPUT C 

375 IF C = 1 THEN GOTO 394 

380 LET I=I-2 

385 GOTO 395 

390) LETI =1I+1 

395 PRINT "VOCÊ GANHA MAIS DO QUE QUINZE SALÁRIOS MÍNIMOS 
POR MÊS?" 

400 INPUT C 

492 IF C = 2 THEN GOTO 416 

4d4 LET I =1I-2 

410 PRINT "SE VOCÊ TERMINOU O 20 GRAU TECLE (1); CURSO 
SUPERIOR (2) E (0) EM CASO CONTRÁRIO" 

415 INPUT C 

420 IF C = 1 THEN GOTO 446 

425 IF C = 2 THEN GOTO 456 

436 GOTO 460 

440 LET I =1+1 

445 GOTO 469 

458 LET IL =1+2 
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460 PRINT "VOCÊ FOI MULTADO ESTE ANO POR EXCESSO DE 
VELOCIDADE?" 
462 INPUT C 
463 IF C = 2 THEN GOTO 465 
464 LETI =I-1 
465 PRINT "VOCÊ TEM MAIS DE 60 ANOS E AINDA TRABALHA 
ATRÁS DE UMA ESCRIVANINHA?" 
466 INPUT C 
470 IF € = 2 THEN GOTO 484 
475 LET I =1+3 
484 PRINT "VOCÊ TEM ALGUM DOS 4 AVÓS QUE VIVEU MAIS DE 
75 ANOS?" 
485 INPUT C 
490 IF C = 1 THEN GOTO 516 
SOB GOTO 544 
510 LET I=1+2 
526 PRINT "TODOS OS SEUS QUATROS AVÓS ESTAVAM VIVOS 
AOS 7 ANOS?" 
525 INPUT C 
536 IF C = 2 THEN GOTO 546 
535 LETI =1+6 
546 PRINT "O SEU PAI OU MÃE MORRERAM DE UM ATAQUE DO 
CORAÇÃO ANTES DE 48 ANOS?" 
550 INPUT C 
568 IF C = 2 THEN GOTO 580 
576 LETI =I-4 
586 PRINT "VOCÊ TEM ALGUM PARENTE (PAIS, IRMÃOS) COM 
MENOS DE 56: ANOS COM PROBLEMAS DE CORAÇÃO, CÂNCER 
OU DIABETE?! 
596 INPUT C 
600 IF C = 2 THEN GOTO 626 
610 LETI =I-3 
620 PRINT "TECLE (1) SE FUMA MAIS DE DOIS MAÇOS DE CIGAR- 
ROS POR DIA, (2) SE FUMA E ($) SE NÃO FUMA" 


144 


625 INPUT C 

636 IF C = 1 THEN GOTO 650 

646 IF C = 2 THEN GOTO 6704 

645 GOTO 686 

650 LET IL =I-7 

660 GOTO 686 

670 LET I=I-4 

684 PRINT "VOCÊ BEBE O EQUIVALENTE A 1/7 DE UMA GARRAFA DE 
CACHAÇA POR DIA OU MAIS?" 

696 INPUT C 

700 IF C = 2 THEN GOTO 726 

710 LETI =1-1 

720 PRINT "SE O SEU PESO ESTÁ ACIMA DO NORMAL MAIS DE 2% 
KG TECLE (1); CASO ESTEJA NA FAIXA DE 19-26 KG TECLE 
(2); CASO ESTEJA NA FAIXA DE 3-1 KG TECLE (3) E EM 
CASO CONTRÁRIO TECLE (0)". 

725 INPUT C 

730 IF C = 1 THEN GOTO 759 


735 IF C = 2 THEN COTO 766 
740 IF C = 3 THEN GOTO 77% 
745 GOTO 786 


756 LET L=I-7 

755 GOTO 784 

766 LET EL =I -4 

765 GOTO 780 

77Ô LET I =I-2 

780 PRINT "PARA O SEXO MASCULINO TECLE (1) CASO VOCÊ FAÇA 
UM "CHECK-UP" ANUAL" 

79% PRINT "PARA O SEXO FEMININO TECLE (1) SE VOCÊ FAZ UM 
EXAME GINECOLÓGICO COMPLETO ANUALMENTE" 

795 INPUT C 

B0Ó IF C = 2 THEN GOTO 826 

810 LETI =1I + 2 
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826 PRINT "SE VOCÊ TEM ENTRE 18-42 ANOS TECLE (1), ENTRE 
42-52 TECLE (2), ENTRE 52-65 TECLE (3), >65 TECLE 
QUALQUER OUTRO NÚMERO" 


830 INPUT C 

84) IF C = 1 THEN GOTO 890 
859 IF C = 2 THEN GOTO 916 
86) IF C = 3 THEN GOTO 936 


876 GOTO 954 

886 Goto 100A 

890) LETIL=1I+2 
906 cotTo 1Gp6 

910 LETI =1+3 
920 GOTO 1000 

930 LETI =1+4 
94 coro LAGO 

950 LETI =1+5 
1000 FOR K = 1 TO 32 
1616 PRINT "2"; 

1020 NEXT K 

1030 PRINT "A SUA ESPERANÇA DE VIDA É:O"; IT; "O ANOS” 
1046 FOR K = 1 TO 32 
1054 PRINT "O"; 
1060 NEXT K 

1676 STOP 


32. ADIVINHANDO 





O seu TK-85 "pensa" em um número de três 
dígitos todos distintos entre si e escolhidos alea 
toriamente entre 1,2,3,4,5,6,7,8 ou 9. 

O programa “ADVINHANDO" permite que você 
tente descobrir este número, no menor número de 


tentativas. 


Aí vai o programa 


19 PRINT "**ADVINHANDO**" 

15 DIM A(7) 

20 PRINT "**ACERTE O MEU NÚMERO**" 

25 PRINT 

30 LET K = 6 

46 FOR N=1 TO3 

SÊ LET A(N) = INT(9*RND) + 1 

66 IF N = 1 THEN GOTO 85 

76 FORT =1TON-1 

75 IF A(N) = A(T) THEN GOTO 59 

80 NEXT T 

85 NEXT N 

96 PRINT “ENTRE COM UM NÚMERO INTEIRO DE TRÊS ALGARISMOS" 
95 PRINT "ENTRE COM UM ALGARISMO DE CADA VEZ" 
106 LETK=K+1 
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165 
116 
120) 
134 
146 
145 
156 
155 
160 
176 
186 
185 
196 
195 
206 
216 
224 
230 
244 
256 
26% 
276 
284 
296 
36% 
316 


PRINT “ESTA É A TENTATIVA O"; K 









LET C=Q 
a m e 
LET T = 6 Esta e uma forma mu 
tretosa de parar o 
FOR N = 4 TO 6 programa se você qui- 
INPUT A(N) ser desistir pois nao 





consegue advinhar a 
numero que o TK-85 es 
colheu. E 
Receita, entre com o 





LF A(N) = 6” THEN GOTO 276 
NEXT N 













FOR N=1 TO3 zero (6). 

IF A(N) = A(N+3) THEN LET C = Ctl 

IF A(N) = A(N+3) THEN LET T=T-1 

FOR R = 4 TO 6 

IF A(N) = A(R) THEN LET T = T+] 

NEXT R 

NEXT N 

IF C = 3 THEN GOTO 256 “Aqui o seu TR-85 
a lhe da as dicas 

PRINT "POSIÇÕES CORRETAS = "; € IZ ORGS a Eau cius 

PRINT "POSIÇÕES TROCADAS ="; T te. 

Aproveite essas 

PRINT informações 

GOTO 10% 

PRINT "ACERTOU TUDO EMO"; K; "O TENTATIVAS” 

cOTO 2% 

PRINT "ESTA É A RESPOSTA" 

FOR J = 1 TO3 

PRINT A(J); "O"; 

NEXT J 

STOP 


33. 1984 - FAAP — 2000 


FOSAR FAAP 
FAAP FAAP 
FARP FAAP 
FAAP FAAP 
FAar FAAP 
FAAP FAAP 
FAAP Faar 
FAAP FRAP 


FAAPFAAPFAAPFAAPFAAPE AAF 
FAAPFAAPFASPFAAPFAAPFARAP 
FAAPFANPFANPFAAPFAAPF AAP 
FAAPFAAPEAAPFAAPEAAPEAAF 
FAAPFAAPE AAPFAAFFAAPF BAR 
FAAPFABP  FAAPFAAP FAAPFAAP 
FAAPFAAP  FAAPFAAP  FAAPFAAP 
FRAPFAAP | FAAPFAAP FAAPFAAP 
FAAPFAAP  FAAPFAAP FAAPFAAP 
FAAPFAAP  FAAPFAAP FAAPFAAP 


FAAPFAAPFE RAP 
FAAPFAAPFAAP 
FAAPFANPFAAP 
FAAPFAAPFEAAF 
FAAPFABPFAAP 


FAAPEAAPFAAP 
FAAPFAAPFAAP 
FAAPFAAPFAAP 
FAAPEAAPFAAP 
FAAPFAAPFAAP 


FAAPFAAPFAAPFAAP 
FAAPFANRPFAAPEAAP 
FAAPFABPFAAPFAAP 
FAAPFAAPFAAPEAAP 
FAAPFAAPFAAPFAAP 

FAAPFAAPEBAPFAAPFRAPFANPFAAPFAAP 
FAAPEARPEAAPE AAPEAAPEAAPF AAPEAAR 
FABPFAAPFAAPFAAPFAAPFAAPFAAPEAAP 
FAAPFAAPFAAPE AAPFAAPFAAPFAAPFAAP 
FABPFAAPFAAPFAAPFARPFAAPF AAPEARP 
FAAPFAAP FAAPFAAPFAAPE DAP FAAPFRAP 
FAAPEAAP FAAPFAAPFAAPF AAP FAAPFAAP 
FAAPFAAR FAAPEASPFAAPFAAR FAAPFAAP 
FAAPFAAP FOAPFAAPFAAPFAAP FAAPFAAP 
FAAPFAAP FAAPFAAPFAAPFAAP FAARFAAP 
FAAPFAAP FABPFAAPFAAPFAAP FAAPFAAR 


FAAPFAAP 
FABPFAAP 
FAAPFAAP 
FAAPFAAP 


FAAPFAAPFAAPEAAP 
FAAFFAAPFAAPFAAP 
FAAPFAAPFAAPFAAP 
FAAPEAAPFAAPFAAP 


FAAPFAAP 
FAAPFAAP 
FAAPFAAP 
FAAPFAAP 


FAAPFAAP FAAPFAAPFAAPFAAP FAAPFAAP 
FAAPFAAF FAAPFAAPFAAPERAP FAAPEAAP 
FAAPFAAP FAAPFAAPFAAPFAAP FAAPFRAP 
FAAPFAAP FAAPFAAPFAAPFAAP FAAPFAAP 
FAAPFAAP FAAPFAAPFAAPFAAP FAAPFAAP 
FAAPFAAPFAAP FAAP FAAPFAAP 
FAAPFAAPFAAP FAAP FAAPFAAF 
FRAPEAAPFAAP FAAP FAAPFAAP 
FAAPEAAPFAAP FAAP FARPFARP 
FAAPEAAPFAAP FAAP FARPFAAP 
FARP FAAP 
FAAP FAAP 
FAAP FAAP 
FAAP FAAP 
FAAP FAAR 
FAAP FAAP 
FAAP FAAP 
FAAP FAAP 
FAAP FAaP 
FAAP FAAP 


FAAFFAAPFAAPFAAP 
FAAPFRAPFAAFFAAP 
FAAPEAAPE ARE ABR 
FAAPFABFF AAPFAAP 
FAAPFARPFAAPE AGP 


FAAPFAAPFAAPFAAP 
FAAPEAAPF ARPFAAP 
FAAPFAAPF AAPFAAP 
FAAPFAAPFARPFAAP 
FARAPFAAPEAGPF ARE 
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Criei di DR é JANEIRO 2000 FEVEREIRO 2000 
JANE RD patas RR FEVEREIRO ARS DOM SEG TER GUA QUI SEX SAB DOM SEG TER QUA QUI SEX SAB 
BOM SEG TER DUA ELIT EE SAR DOM SEG TER QUA BUI SEX SAR 1 1 > 3 4 5 
1 2 RS 4 9] és J 1 2 s 4 
E 7 E 2 3 4 5 6 7. 8 e vv BS io a az 
Go cr, SAM CAR CE AS am Sao uuico SPO SEO ato soDRv a 2 10 11 12 43 14 35 153 14 15 14 17 18 19 
es DR O cp DRA UAR E Go dO Saio fia lo 17 18 19 20 21 22 20 21 22 23 24 25 24 
me et E e = a e e so a 25 24 25 26 27 28 2» 27 za 29 
2» 30 qi 26 27º va 29 
30 3 
MARCO 2000 ABRIL 2000 
MARCO 1984 BERIL 1984 
M SEG TER QUA SEX SAB M SEG TER DUA QUI SEX - SAB 
DOM SEG TER QUA DUI SEX SAB DOM SEG TER DUA QUI SEX SAR Bom 2a Ea Ro : 
a Tr Sdoo dio SER DES Ooo cu A RR A RS 2 3 4 5 6 7/8 
do dor to qa Do cdr A E os am MS de cu 12 13 14 15 16 47 18 9 10 11 12 13 14 95 
Mo AZ 13 14 15 16 37 1 16 17 18 19 20 2 19 Do 21 22 23 24 25 lê 47 18 19 20 2 22 
18 19 20 21 22 25 24 2 25 2 25 2 27 28 nd PGR ad Sad Re A 
25 Db 27 28 DP 30 31 29 30 aa 
Maio 1964 SUNHO 1984 MAIO 2000 LINHO 2000 
DOM TER QUA QUI x SAB DOM SEG TER QUA QUI SEX SAB 
DOM SEG TER UA QUI SEX Sab DOM SEG TER DUA QUI SEX SAR RE o A pan PO e E : o a 
1 >» 3 4 8 1 2 
: : x = 1 e > 160 4 42/13 4a sb ZÕB Sã 
e sr. GB não mb Doda E DD A 14 15 16 17 148 19 DB Mo dz 13 14 18 16 17 
15 44 15 16 17 48 19? 19 11 12 15 + 5  d 21 22 23 24 25 2 27 1B d9 209 2 22 23 24 
2» 21 22º 23 2 25 2 17º 18 49 20 2 22 23 O Caco A us RA Seo NRO, GE 
27 2 29 3a 31 > 25. 2h 27 28 29 30 ; 
JULHO 2000 aGosTO 2000 
JULHO 1984 ABOSTO 1984 SEG TER 1 SEX SAE M SEG TER QUA QUI SEX SAB 
DOM SEG TER QUA QUI SEX SAR DOM SEG TER DUA QUI SEX SAB nam Era i E o Rr 
dis do Cuneo de, Condo sadaRo O RO, E = Dom A BD & PB E NM Sã, Soo O Ar AZ 
O e ARO asddo o My Boo aa o do e > 10 11 12 1435 14 15 15 14 15 16 17 8 19 
is 1b 147 18 19 20 q o 1% 14 15 16 17 18 o Roo a Ore NiDos e REU Ra o ao CODE Coe Safe SERES 
22 25 24 25 2 27 28 15 20 2) 22 25 2 25 E DO =D UR Ea RO vRO AS 
29 30 31 ob 7 20 29 3 3 O 
SETEMORO 1984 QUTUERO 19B4 SETEMBRO 2000 OUTUBRO eo 
TUR TER E I SEX SAB M SEG TER QUA QUI SEX SAB 
DOM SEG TER BGUA QUI SEX SAB DOM SEG TER DUA QUI SEX SAB a Er pie : 5 o rSgeo Pao Pe Ne doa DEDO Copo 
1 1 2 s 4 3 6 
3 - ago cl CB Sd op LAB TO 8 > 1 4 142 13 14 
2os e SR O a E a 7... 8 7 Rb Ao, dao 8 10 11 12 13 14 15 16 155 16 17 149 19 20 2 
9 10 d1 12 15 44/15 19 45 16 17 18 19 20 17º 18 19 2Zo 21 22 235 22 É 24 25 26 27 28 
16 17 15 19 20 24 22 2» 23 24 25 26 27 EA E = a Sd 
23 . 24 25 2 27 28 29 28 PP So 31 
30 
NOVEMBRO 2000 DEZEMBRO 2000 
NOVEMBRO 1984 DEZEMBRO 1994 ; 
A 
DOM SEG TER QUA QUI SEX SAR DOM SEG TER QUO QUI SEX SAB POR ARDE RL A Ea O Rem GR TER A PRP E: 
1 2 3 í 
. s o 7 8 o io as go ca vã cd Po 4 
: E 
Pope MN ER a O do pot uh CaBeo com spo 8 1 13 44 15 16 147 18 IO 21 12 dz 14 15 16 
Do Ago ii a do der dE pos MAG do cedo Cd cão do 19 20 2 2 23 24 25 17 DB 19. 20 2 22 23 
18 19 20 21 22 23 24 14 17 18 19 20 2 o ão cad DO E A = O E 
25 2b 27 2 29 30 23 2 25 2 27 28 29 a 


So 31 
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Este programa oferece-nos a oportunidade 
de falar um pouco da Fundação Armando Álvares Pen- 
teado (FAAP). 

Na FAAP & justo expressar a gratidão ao 
ilustre casal Lucia e Roberto Pinto de Souza diri- 
gindo a Instituição de Ensino Superior com discer- 
nimento objetivo, com aguda perspicácia e com gran 
de sensibilidade em relaçao a melhor forma de le- 
var a Educação e a Cultura aos jovens. 

Dentro desse contexto uma das ferramentas 
mais exploradas & o computador e isto ja durante 
os Ultimos quinze anos. 

Hoje a FAAP possui um excelente Centro de 
Processamento de Dados (C.P.D.) dirigido pelo prof. 
Sergio Sonnino e um grande Centro de Informatica 
que tem a sua frente o prof. Simpson Kalmus. 

Todos os alunos da FAAP tem livre acesso 
para realizar ou serem auxiliados em qualquer tra- 
balho didático que necessite do computador tanto 
no CPD como no Centro de Informática, 

Existem microcomputadores de diversas mar 
cas e variado desempenho tanto no Centro de Infor- 
matica como outros alocados nas diversas Faculda- 
des que compõem a FAAP e entre elas destaca-se a 
Faculdade de Engenharia na qual tenho a satisfa- 
ção de trabalhar desde 1967. 

É de um programa desenvolvido pelo prof. 
Simpson que extraimos a saída que ilustra o pro- 
grama "1984-FAAP-2000" 

Que tal saber qual & o dia da semana de 
uma data qualquer? 

O programa "1984-FAAP-2000" permite que 


se conheça o dia da semana de qualquer data e como 
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o passado não interessa tanto, aplique o mesmo pa- 
ra o futuro principalmente para alguma data impor- 
tante do ano 2446. 
Quem não gostaria de emplacar o ano 2008? 
Para uma verificação do programa utilize 


as duas folhinhas apresentadas. 


Aí vai o último programa do TK-Lembrando: 


1 CLS 

5 FOR J=1TO4 

18 PRINT "*1984-FAAP-2000*"; 

15 NEXT J 

17 PRINT 

18 PRINT 

26 PRINT "ENTRE COM O DIA, MÊS E ANO NO FORMATO"; 
25 PRINT "ODD, OMMOAMA" 


28 PRINT "PARA TERMINAR ENTRE COM É, À, É EM ALGUM DOS 
DADOS 


36 PRINT 

35 INPUT D 

4) INPUT M 

59 INPUT A 

53 PRINT D; "/"; M;"/"; A 

55 IF D= 6 ORM=(OORAsz=dt THENGOTO IG 

60 IF M>2 THEN GOTO 75 

65 LET M=M+ 12 

7Ó LET A=A-1 

75 LET N=D+ 24M + INT (.61*(M+) + A + INT(A/4) - 
INT(A/100) + INT(A/400)) + 2 

80 LET N = ENT((N/7 — INT(N/7)) * 7 + .5) 

96 IF N = É THEN LET D$ = "SABADO" 

164 IF N = 1 THEN LET D$ = “DOMINGO” 

116 LF N = 2 THEN LET D$ = "SEGUNDA 


hn 
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120 IF N = 3 THEN LET D$ = "TERÇA! 
138 IF N = 4 THEN LET D$ = "QUARTA" 
146 IF N = 5 THEN LET D$ = "QUINTA" 
159 IF N = 6 THEN LET D$ = "SEXTA" 


169 PRINT D$ 

176 PAUSE 256 

186 GoTo 1 

199 PRINT "VOLTE A ME CONSULTAR SEMPRE QUE QUISER" 
206 STOP 


0.1. 1 - No número de dezembro de 1983 da Micro Sis 
temas saiu o “Programe seu calendário" de autoria 
de Jose Donizeti de Paula. 

É uma variante muito interessante, e que 


serve para o TK-85,do nosso programa "1984-FAAP-2006". 


0.1. 2 - Na revista Micro Mundo (número 2, abril de 
1983) na secção Fontes, Andre Breitman apresenta 
uma versao muito interessante para se obter o ca- 
lendario. 

Aliás o programa foi desenvolvido origi- 
nalmente para equipamentos compatíveis com o TRS-80 
porêm pode facilmente ser transformado para ser usa 
do nos equipamentos da Microdigital tanto para o TK 
85 como para o TK-2000. 


O.I. 3 - Ainda na revista Micro Mundo (número 7, 
setembro de 1983) na secção Fontes tem-se o progra 
ma "Cálculo de datas” apresentado por Flavio Serra- 
DO. 


É muito interessante saber por exemplo 
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quantos dias separam o dia do nosso aniversário e 
da nossa melhor amiga(o) do sexo oposto, 


Você não acha que isso É importante? 


O.I. 4 - Na Microhobby Nº O (março de 1983) na pã- 
gina 6 você encontra outros detalhes ainda sobre o 


calendãrio. 


O.I. 5 - Na Microhobby Nº 2 (junho de 1983) o pro- 
grama do leitor & o "Calendário" de autoria de 


Edson Sauer Guimaraes. 


OUTRAS OBRAS DO AUTOR 


Caderno de elementos de computação (Linguagem FORTRAN) 
Linguagem BASIC 

BASIC sem segredos 

TK-divertindo 

TK-lembrando 

TK=-calculando 

Conhecendo e utilizando o TK 2000 
TK-2000 na matematica 

De um APPLE à sua vida 

Imprimindo maravilhas com a GRAFIX 
Brincando com o 'TRS-Color 

BASIC no PK 90X 

Conexão: GRAFIX-IBM PC e compatíveis 


graficos no TK 2000 
Jogos e Desenhos no TK 2000 
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